A114718 a(n) = sum of terms in n-th row of triangle A112599.

1, 2, 6, 6, 10, 13, 17, 43, 59, 69, 85, 85, 103, 123, 147, 128, 185, 171, 246, 192, 259, 224, 356, 328, 400, 358, 373, 498, 497, 496, 787, 443, 886, 664, 560, 795, 770, 839, 945, 993, 981, 866, 1083, 1010, 1449, 1173, 1439, 1400, 1656, 1389, 1380, 1526, 1445

Offset

1,2

Links

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

Example

The 7th row of triangle A112599 is [6,1,3,1,2,1,3]. So a(7) = 6+1+3+1+2+1+3 = 17.

Mathematica

f[l_] := Block[{p, t}, p = l[[ -1]]; k = Length@p; t = Table[ Count[ GCD[p, n], 1], {n, k + 1}]; Return@Append[l, t]; ]; Plus @@@ Nest[f, {{1}}, 52] (* Robert G. Wilson v *)

Crossrefs

Cf. A112599, A114719.

Sequence in context: A306745 A196053 A063210 * A102261 A245486 A147298

Adjacent sequences: A114715 A114716 A114717 * A114719 A114720 A114721

Keyword

nonn

Author

Leroy Quet, Dec 27 2005

Extensions

More terms from Robert G. Wilson v, Dec 28 2005

Status

approved