

A122965


a(0)=0, a(1)=1; at n>1 a(n) = a(n1) + (sum of numbers<n among a(0),a(1),..,a(n1) 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;
text;
internal format)



OFFSET

0,3


LINKS

Table of n, a(n) for n=0..52.


MATHEMATICA

s={0, 1}; b=1; Do[b=b+Total[Select[Range[n1], GCD[ #1, n]==1&&MemberQ[s, #1]&]]; AppendTo[s, b], {n, 2, 100}]; s


CROSSREFS

Cf. A122847.
Sequence in context: A326118 A301791 A051677 * A350988 A226810 A054463
Adjacent sequences: A122962 A122963 A122964 * A122966 A122967 A122968


KEYWORD

nonn


AUTHOR

Zak Seidov, Oct 27 2006


STATUS

approved



