A125953 - OEIS

%I #12 Oct 31 2019 11:41:33

%S 1,0,1,2,4,8,10,12,14,25,27,38,34,72,80,103,95,101,123,123,133,208,

%T 180,175,177,196,304,329,335,300,330,440,396,350,510,511,491,651,619,

%U 644,632,666,798,831,827,971,871,964,984,1045,1091,1104,1360,1269,1153,1213

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

%t 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 *)

%K easy,nonn

%O 0,4

%A _Leroy Quet_, Feb 05 2007

%E Extended by _Ray Chandler_, Feb 07 2007