|
%I #5 Oct 15 2013 22:31:20
%S 1,3,9,15,18,27,36,45,72,99,135,162,189,234,279,342,405,459,504,558,
%T 621,693,792,873,945,1026,1134,1224,1350,1467,1602,1710,1854,1998,
%U 2142,2313,2466,2574,2763,2952,3096,3285,3465,3681,3888,4104,4329,4563,4788
%N a(n) = a(n-1) + sum of decimal digits of n!.
%t s=0; Do[s=s+Apply[Plus, IntegerDigits[n! ]]; Print[s], {n, 1, 128}]
%Y Cf. A037123, A000788, A051351.
%K base,easy,nonn
%O 1,2
%A _Labos Elemer_, May 27 2002
|
