A071123 a(n) = a(n-1) + sum of decimal digits of n!.

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

Links

Table of n, a(n) for n=1..49.

Mathematica

s=0; Do[s=s+Apply[Plus, IntegerDigits[n! ]]; Print[s], {n, 1, 128}]

Crossrefs

Cf. A037123, A000788, A051351.

Sequence in context: A277569 A310329 A310330 * A298014 A071347 A093414

Adjacent sequences: A071120 A071121 A071122 * A071124 A071125 A071126

Keyword

base,easy,nonn

Author

Labos Elemer, May 27 2002

Status

approved