|
| |
|
|
A126573
|
|
a(n) = sum of terms in n-th row of triangle A126571.
|
|
1
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
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: A025740 A054307 A172295 * A000327 A130624 A066869
Adjacent sequences: A126570 A126571 A126572 * A126574 A126575 A126576
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Leroy Quet Dec 28 2006
|
|
|
EXTENSIONS
| Extended by Ray Chandler (rayjchandler(AT)sbcglobal.net), Dec 29 2006
|
| |
|
|
