A073279 Number of digits of n!^n! (ultrafactorial numbers).
1, 1, 1, 5, 34, 250, 2058, 18661, 185695, 2017527, 23804069, 303413813, 4157895295, 60989187252, 953766105164, 15844435971349, 278704524938621, 5175632136205088, 101198102131888304, 2078318050691940125, 44731639502987747576, 1006917859088311808499
Offset: 0
Programs
-
Mathematica
Table[1 + Floor[n!*Log10[n!]], {n, 0, 21}] (* Arkadiusz Wesolowski, Oct 13 2012 *) -
PARI
for(n=0,8,print1(length(Str(n!^n!)),","))
Formula
a(n) = floor(log(n!^n!)/log(10)) + 1.
Extensions
More terms from Arkadiusz Wesolowski, Jul 04 2012
Terms a(17) to a(21) corrected by Arkadiusz Wesolowski, Oct 13 2012