|
%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
|
