login
Number of digits of n!^n! (ultrafactorial numbers).
0

%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