OFFSET
0,12
MAPLE
P:=proc(n) local i, k, w; for i from 1 by 1 to n do w:=0; k:=i; while k>0 do w:=w+k-(trunc(k/10)*10); k:=trunc(k/10); od; k:=(binomial(i, w) mod i); print(k); od; end: P(100);
MATHEMATICA
Table[Mod[Binomial[n, Total[IntegerDigits[n]]], n], {n, 100}] (* Harvey P. Dale, Dec 19 2011 *)
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Paolo P. Lava and Giorgio Balzarotti, Mar 29 2007
STATUS
approved