A126573 a(n) = sum of terms in n-th row of triangle A126571.

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

Offset

1,2

Links

Table of n, a(n) for n=1..48.

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}] (* Ray Chandler, Dec 29 2006 *)

Crossrefs

Cf. A126571, A126574.

Sequence in context: A054307 A172295 A332569 * A341209 A000327 A220425

Adjacent sequences: A126570 A126571 A126572 * A126574 A126575 A126576

Keyword

nonn

Author

Leroy Quet, Dec 28 2006

Extensions

Extended by Ray Chandler, Dec 29 2006

Status

approved