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

Author

Leroy Quet, Dec 27 2005

Keywords

• nonn

Examples

			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.
		

Crossrefs

Cf. A112599, A114719.

Programs

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 *)

Extensions

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