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

1, 1, 2, 4, 8, 15, 27, 48, 86, 152, 266, 463, 806, 1400, 2429, 4212, 7301, 12651, 21918, 37969, 65771, 113926, 197332, 341797, 592018, 1025414, 1776077

Offset

0,3

Links

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

Formula

a(n) = A055642(A248728(n)). - R. J. Mathar, Nov 17 2014

Mathematica

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

Prog

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

Crossrefs

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

Sequence in context: A098057 A289692 A074029 * A138653 A367223 A284275

Adjacent sequences: A248726 A248727 A248728 * A248730 A248731 A248732

Keyword

nonn,base,more

Author

Robert G. Wilson v, Oct 12 2014

Status

approved