A248735 Number of digits in the decimal expansion of the number of partitions of 7^n.

1, 2, 6, 18, 51, 140, 377, 1005, 2668, 7069, 18714, 49527, 131052, 346746, 917422, 2427289

Offset

0,2

Links

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

Formula

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

Mathematica

f[n_] := Floor[ Log[10, PartitionsP[ 7^n]] + 1]; Table[ f@n, {n, 0, 15}]
IntegerLength[PartitionsP[7^#]]&/@Range[0, 15] (* Harvey P. Dale, Apr 27 2015 *)

Prog

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

Crossrefs

Cf. A000041, A129490, A248729, A248731, A248733, A077644, A248736, A248734.

Sequence in context: A199770 A204322 A196593 * A219136 A192237 A034525

Adjacent sequences: A248732 A248733 A248734 * A248736 A248737 A248738

Keyword

nonn,base,more

Author

Robert G. Wilson v, Oct 12 2014

Status

approved