OFFSET
1,2
MATHEMATICA
s=0; Do[s=s+Apply[Plus, IntegerDigits[n! ]]; Print[s], {n, 1, 128}]
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Labos Elemer, May 27 2002
STATUS
approved