login
A071123
a(n) = a(n-1) + sum of decimal digits of n!.
0
1, 3, 9, 15, 18, 27, 36, 45, 72, 99, 135, 162, 189, 234, 279, 342, 405, 459, 504, 558, 621, 693, 792, 873, 945, 1026, 1134, 1224, 1350, 1467, 1602, 1710, 1854, 1998, 2142, 2313, 2466, 2574, 2763, 2952, 3096, 3285, 3465, 3681, 3888, 4104, 4329, 4563, 4788
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