A248731 - OEIS

%I #11 Sep 08 2022 08:46:10

%S 1,1,4,10,25,58,135,306,690,1550,3474,7776,17398,38912,87022,194598,

%T 435148,973034,2175785

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

%t f[n_] := Floor[ Log[10, PartitionsP[ 5^n]] + 1]; Table[ f@n, {n, 0, 30}]

%t IntegerLength[PartitionsP[5^Range[0,18]]] (* _Harvey P. Dale_, Sep 10 2021 *)

%o (Magma) [Floor(Log(10,(NumberOfPartitions(5^n))))+1: n in [0..8]]; // _Vincenzo Librandi_, Oct 13 2014

%o (PARI) a(n) = #Str(numbpart(5^n)); \\ _Michel Marcus_, Oct 16 2014

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

%K nonn,base,more

%O 0,3

%A _Robert G. Wilson v_, Oct 12 2014