|
%I #14 Jan 26 2023 12:15:53
%S 1,1,1,5,34,250,2058,18661,185695,2017527,23804069,303413813,
%T 4157895295,60989187252,953766105164,15844435971349,278704524938621,
%U 5175632136205088,101198102131888304,2078318050691940125,44731639502987747576,1006917859088311808499
%N Number of digits of n!^n! (ultrafactorial numbers).
%F a(n) = floor(log(n!^n!)/log(10)) + 1.
%t Table[1 + Floor[n!*Log10[n!]], {n, 0, 21}] (* _Arkadiusz Wesolowski_, Oct 13 2012 *)
%o (PARI) for(n=0,8,print1(length(Str(n!^n!)),","))
%Y Cf. A046882 (ultrafactorial numbers), A000142 (n!), A034886 (digits of n!).
%K base,nonn
%O 0,4
%A _Rick L. Shepherd_, Jul 23 2002
%E More terms from _Arkadiusz Wesolowski_, Jul 04 2012
%E Terms a(17) to a(21) corrected by _Arkadiusz Wesolowski_, Oct 13 2012
|
