A114719 a(n) = sum of terms in n-th row of triangle A112592.

0, 1, 4, 10, 14, 15, 21, 34, 40, 50, 74, 62, 78, 81, 140, 170, 153, 161, 277, 227, 313, 260, 332, 304, 406, 334, 383, 504, 614, 632, 643, 539, 775, 764, 775, 664, 1003, 974, 1095, 847, 917, 1144, 1230, 1140, 1309, 1203, 1413, 1265, 1438, 1698, 1510, 1035, 1194

Offset: 1

Author

Leroy Quet, Dec 27 2005

Keywords

• nonn

Examples

			The 7th row of triangle A112592 is [6,3,3,3,0,3,3]. So a(7) = 6+3+3+3+0+3+3 = 21.
		

Crossrefs

Cf. A112592, A114718.

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, {{0}}, 52] (* Robert G. Wilson v *)

Extensions

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

Typos in Mma program corrected by Giovanni Resta, Jun 12 2016