|
Search: id:A126573
|
|
| |
|
| 1, 5, 12, 23, 36, 60, 78, 105, 132, 170, 201, 254, 290, 344, 397, 456, 502, 584, 637, 722, 793, 881, 946, 1057, 1131, 1233, 1320, 1437, 1516, 1679, 1770, 1892, 2002, 2140, 2254, 2425, 2529, 2675, 2808, 2984, 3100, 3322, 3448, 3621, 3785, 3971, 4108, 4339
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
MATHEMATICA
|
f[m_, n_] := Block[{k = 0, c = n}, While[c > 0, k++; While[GCD[k, m] > 1, k++ ]; c--; ]; k]; Table[Sum[f[m, n], {m, n}], {n, 50}] (*Chandler*)
|
|
CROSSREFS
|
Cf. A126571, A126574.
Sequence in context: A034971 A025740 A054307 this_sequence A000327 A130624 A066869
Adjacent sequences: A126570 A126571 A126572 this_sequence A126574 A126575 A126576
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Leroy Quet (qq-quet(AT)mindspring.com), Dec 28 2006
|
|
EXTENSIONS
|
Extended by Ray Chandler (rayjchandler(AT)sbcglobal.net), Dec 29 2006
|
|
|
Search completed in 0.002 seconds
|
