A248731 Number of digits in the decimal expansion of the number of partitions of 5^n.

1, 1, 4, 10, 25, 58, 135, 306, 690, 1550, 3474, 7776, 17398, 38912, 87022, 194598, 435148, 973034, 2175785

Offset

0,3

Links

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

Mathematica

f[n_] := Floor[ Log[10, PartitionsP[ 5^n]] + 1]; Table[ f@n, {n, 0, 30}]
IntegerLength[PartitionsP[5^Range[0, 18]]] (* Harvey P. Dale, Sep 10 2021 *)

Prog

(Magma) [Floor(Log(10, (NumberOfPartitions(5^n))))+1: n in [0..8]]; // Vincenzo Librandi, Oct 13 2014
(PARI) a(n) = #Str(numbpart(5^n)); \\ Michel Marcus, Oct 16 2014

Crossrefs

Cf. A129490, A248729, A248733, A248735, A077644, A248736, A248730.

Sequence in context: A113412 A227712 A159297 * A279101 A276599 A281867

Adjacent sequences: A248728 A248729 A248730 * A248732 A248733 A248734

Keyword

nonn,base,more

Author

Robert G. Wilson v, Oct 12 2014

Status

approved