|
Search: id:A114718
|
|
| |
|
| 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; listen)
|
|
|
OFFSET
|
1,2
|
|
|
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] (* RGWV *)
|
|
CROSSREFS
|
Cf. A112599, A114719.
Sequence in context: A141377 A006955 A063210 this_sequence A102261 A078636 A083482
Adjacent sequences: A114715 A114716 A114717 this_sequence A114719 A114720 A114721
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Leroy Quet (qq-quet(AT)mindspring.com), Dec 27 2005
|
|
EXTENSIONS
|
More terms from Robert G. Wilson v (rgwv(at)rgwv.com), Dec 28 2005
|
|
|
Search completed in 0.002 seconds
|
