1,3
Table of n, a(n) for n=1..80.
a(9) = 7 = 11200444 (mod 9).
f[l_List] := Append[l, Mod[FromDigits[Join @@ IntegerDigits[l]], Length[l] + 1]]; Nest[f, {1}, 80] (* Ray Chandler, Feb 05 2007 *)
Cf. A094296.
Sequence in context: A264476 A137505 A107498 * A085969 A117434 A115179
Adjacent sequences: A094292 A094293 A094294 * A094296 A094297 A094298
base,nonn
Amarnath Murthy, Apr 28 2004
Extended by Ray Chandler, Feb 05 2007
approved