|
%I #10 Nov 07 2023 03:15:45
%S 1,1,1,2,3,4,7,10,15,22,32,47,67,97,138,197,280,398,565,801,1134,1607,
%T 2275,3219,4555,6445,9118,12898,18243,25803,36494,51615,72998,103238,
%U 146005,206486,292020,412982,584050,825975,1168110,1651962,2336232
%N Number of digits in the decimal expansion of the number of partitions of 2^n.
%C For the same sequence but for base 10 (A070177): A077644.
%F See A000041: (Hardy and Ramanujan) & (Ayoub, p. 197).
%F a(n) = A055642(A068413(n)).
%F a(n) =~ 2*A129491(n)/9.
%t f[n_] := Floor[ Log[10, PartitionsP[2^n]] + 1]; Table[ f@n, {n, 0, 42}]
%Y Cf. A000041, A068413, A077644, A129491.
%K base,nonn
%O 0,4
%A _Robert G. Wilson v_, Apr 11 2007
%E Missing a(0) prepended by _Georg Fischer_, Nov 06 2023
|
