|
| |
|
|
A122965
|
|
a(0)=0, a(1)=1; at n>1 a(n) = a(n-1) + (sum of numbers<n among a(0),a(1),..,a(n-1) which are coprime to n).
|
|
1
| |
|
|
0, 1, 2, 5, 6, 9, 15, 29, 35, 43, 53, 76, 82, 105, 120, 123, 153, 191, 197, 235, 245, 253, 283, 321, 327, 345, 375, 383, 413, 451, 481, 548, 607, 644, 703, 750, 820, 922, 1016, 1088, 1127, 1229, 1264, 1366, 1503, 1578, 1715, 1860, 1973, 2083, 2165, 2280, 2417
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,3
|
|
|
MATHEMATICA
| s={0, 1}; b=1; Do[b=b+Total[Select[Range[n-1], GCD[ #1, n]==1&&MemberQ[s, #1]&]]; AppendTo[s, b], {n, 2, 100}]; s
|
|
|
CROSSREFS
| Cf. A122847.
Sequence in context: A163782 A169779 A051677 * A054463 A007503 A184418
Adjacent sequences: A122962 A122963 A122964 * A122966 A122967 A122968
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Zak Seidov (zakseidov(AT)yahoo.com), Oct 27 2006
|
| |
|
|
