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
KEYWORD
nonn
AUTHOR
Zak Seidov, Oct 27 2006
STATUS
approved