A115759 a(n) is the sum of terms in the n-th row of triangle A115758.

0, 1, 4, 7, 14, 19, 28, 34, 45, 53, 72, 80, 96, 105, 119, 139, 168, 179, 213, 234, 248, 269, 312, 327, 363, 391, 430, 452, 493, 530, 570, 593, 645, 677, 732, 756, 801, 844, 885, 922, 981, 1019, 1100, 1137, 1188, 1224, 1283, 1344, 1397, 1463, 1524, 1567, 1668

Offset

1,3

Links

Michael De Vlieger, Table of n, a(n) for n = 1..1000 (first 568 terms from Diana L. Mecum)

Mathematica

Fold[{Append[#1, #3], Append[#2, Total@ #3]} & @@ {First@ #1, Last@ #1, Map[Function[m, Count[Last@ #1, k_ /; CoprimeQ[m, k]]], Range@ #2]} &, {{{0}}, {0}}, Range[2, 53]] // Last (* Michael De Vlieger, Sep 29 2017 *)

Crossrefs

Cf. A115757, A115758.

Sequence in context: A244905 A310920 A161426 * A157615 A338551 A188319

Adjacent sequences: A115756 A115757 A115758 * A115760 A115761 A115762

Keyword

nonn

Author

Leroy Quet, Jan 30 2006

Extensions

a(7) and beyond from Diana L. Mecum, Aug 11 2008

Status

approved