OFFSET
0,3
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..1000
MAPLE
P:=proc(n) local a, i, k, w; a:=1; print(a); for i from 1 by 1 to n do w:=0; k:=a; while k>0 do w:=w+k-(trunc(k/10)*10); k:=trunc(k/10); od; k:=binomial(i, w); w:=0; while k>0 do w:=w+k-(trunc(k/10)*10); k:=trunc(k/10); od; a:=w; print(w); od; end: P(100);
MATHEMATICA
nxt[{n_, a_}]:={n+1, Total[IntegerDigits[Binomial[n+1, Total[ IntegerDigits[ a]]]]]}; Transpose[NestList[nxt, {0, 1}, 75]][[2]] (* Harvey P. Dale, Apr 24 2013 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Paolo P. Lava, Dec 03 2007
STATUS
approved