|
Search: id:A114719
|
|
| |
|
| 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
(list; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
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.
f[l_] := Block[{p, t}, p = l[[ -1]]; k = Length(AT)p; t = Table[Count[GCD[p, n], 1], {n, k + 1}]; Return(AT)Append[l, t];]; Plus (AT)(AT)(AT) Nest[f, {{0}}, 52] (* RGWV *)
|
|
CROSSREFS
|
Cf. A112592, A114718.
Sequence in context: A032821 A101576 A103044 this_sequence A116954 A102686 A099439
Adjacent sequences: A114716 A114717 A114718 this_sequence A114720 A114721 A114722
|
|
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
|
