A125953 a(0)=1. a(n) = sum{k=0 to n-1} (a(k)(mod n)).

1, 0, 1, 2, 4, 8, 10, 12, 14, 25, 27, 38, 34, 72, 80, 103, 95, 101, 123, 123, 133, 208, 180, 175, 177, 196, 304, 329, 335, 300, 330, 440, 396, 350, 510, 511, 491, 651, 619, 644, 632, 666, 798, 831, 827, 971, 871, 964, 984, 1045, 1091, 1104, 1360, 1269, 1153, 1213

Offset

0,4

Links

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

Mathematica

f[l_List] := Block[{n = Length[l]}, Append[l, Sum[Mod[l[[k]], n], {k, n}]]]; Nest[f, {1}, 55] (* Ray Chandler, Feb 07 2007 *)

Crossrefs

Sequence in context: A155037 A001770 A032494 * A373490 A308357 A047464

Adjacent sequences: A125950 A125951 A125952 * A125954 A125955 A125956

Keyword

easy,nonn

Author

Leroy Quet, Feb 05 2007

Extensions

Extended by Ray Chandler, Feb 07 2007

Status

approved