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