OFFSET
0,3
FORMULA
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
KEYWORD
nonn,base,more
AUTHOR
Robert G. Wilson v, Oct 12 2014
STATUS
approved