|
|
A114718
|
|
a(n) = sum of terms in n-th row of triangle A112599.
|
|
2
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
EXAMPLE
|
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.
|
|
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 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|