A248729 - OEIS

%I #19 Dec 27 2024 13:01:32

%S 1,1,2,4,8,15,27,48,86,152,266,463,806,1400,2429,4212,7301,12651,

%T 21918,37969,65771,113926,197332,341797,592018,1025414,1776077

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

%F a(n) = A055642(A248728(n)). - _R. J. Mathar_, Nov 17 2014

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

%t IntegerLength[PartitionsP[3^Range[0,30]]] (* _Harvey P. Dale_, Sep 05 2023 *)

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

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

%Y Cf. A129490, A248731, A248733, A248735, A077644, A248736, A248728.

%K nonn,base,more

%O 0,3

%A _Robert G. Wilson v_, Oct 12 2014