Annual appeal: Please make a donation to keep the OEIS running! Over 6000 articles have referenced us, often saying "we discovered this result with the help of the OEIS". Other ways to donate

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