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,3

Links

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

Example

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.

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

Crossrefs

Cf. A112592, A114718.

Sequence in context: A179134 A103044 A310360 * A116954 A102686 A359171

Adjacent sequences: A114716 A114717 A114718 * A114720 A114721 A114722

Keyword

nonn

Author

Leroy Quet, Dec 27 2005

Extensions

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

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

Status

approved