|
%I #6 Oct 15 2013 22:31:23
%S 1,2,3,5,8,11,15,20,26,33,41,50,60,71,84,98,113,129,147,166,186,208,
%T 231,255,281,308,337,367,398,431,465,501,538,577,618,660,704,749,796,
%U 844,894,946,999,1054,1111,1169,1229,1291,1354,1419,1486,1554,1624
%N a(n) = a(n-1) + number of decimal digits of n!. Number of decimal digits of concatenation of first n factorials.
%t Do[s=s+Length[IntegerDigits[n! ]]; Print[s], {n, 1, 128}]
%Y Cf. A058183.
%K easy,nonn,base
%O 1,2
%A _Labos Elemer_, May 27 2002
|
