A115757 a(n) is the sum of terms in the n-th row of triangle A115756.

1, 2, 5, 10, 14, 19, 30, 35, 48, 53, 73, 90, 105, 116, 130, 142, 166, 181, 216, 228, 246, 261, 298, 317, 358, 381, 416, 438, 473, 507, 555, 586, 621, 657, 705, 733, 804, 834, 866, 899, 976, 1007, 1088, 1128, 1165, 1221, 1292, 1327, 1420, 1457, 1534, 1581

Offset

1,2

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]} &, {{{1}}, {1}}, Range[2, 52]] // Last (* Michael De Vlieger, Sep 29 2017 *)

Crossrefs

Cf. A115756, A115759.

Sequence in context: A053353 A099792 A331605 * A159032 A082745 A064955

Adjacent sequences: A115754 A115755 A115756 * A115758 A115759 A115760

Keyword

nonn

Author

Leroy Quet, Jan 30 2006

Extensions

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

Status

approved