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,4

Links

Table of n, a(n) for n=0..21.

Formula

a(n) = floor(log(n!^n!)/log(10)) + 1.

Mathematica

Table[1 + Floor[n!*Log10[n!]], {n, 0, 21}] (* Arkadiusz Wesolowski, Oct 13 2012 *)

Prog

(PARI) for(n=0, 8, print1(length(Str(n!^n!)), ", "))

Crossrefs

Cf. A046882 (ultrafactorial numbers), A000142 (n!), A034886 (digits of n!).

Sequence in context: A180909 A183415 A066559 * A080503 A078284 A083987

Adjacent sequences: A073276 A073277 A073278 * A073280 A073281 A073282

Keyword

base,nonn

Author

Rick L. Shepherd, Jul 23 2002

Extensions

More terms from Arkadiusz Wesolowski, Jul 04 2012

Terms a(17) to a(21) corrected by Arkadiusz Wesolowski, Oct 13 2012

Status

approved