|
| |
|
|
A114719
|
|
a(n) = sum of terms in n-th row of triangle A112592.
|
|
2
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
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: A101576 A179134 A103044 * A116954 A102686 A099439
Adjacent sequences: A114716 A114717 A114718 * A114720 A114721 A114722
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Leroy Quet Dec 27 2005
|
|
|
EXTENSIONS
| More terms from Robert G. Wilson v (rgwv(at)rgwv.com), Dec 28 2005
|
| |
|
|
