|
%I #26 Aug 01 2020 12:02:36
%S 1,1,1,1,2,2,2,2,4,5,5,5,7,8,8,8,12,14,15,15,19,21,22,22,28,33,35,37,
%T 43,48,50,52,61,69,74,78,90,98,103,107,122,135,143,152,170,186,194,
%U 203,225,247,261,275,305,330,348,362,396,429,454,477,519,561,590,618,666,717
%N Number of partitions of n into parts that are squares or cubes.
%C a(n) = A078635(n) for n < 32 = 2^5.
%H Vaclav Kotesovec, <a href="/A131799/b131799.txt">Table of n, a(n) for n = 0..1000</a>
%F G.f.: Product_{k>=1} (1 - x^(k^6)) / ((1 - x^(k^2)) * (1 - x^(k^3))). - _Vaclav Kotesovec_, Jan 12 2017
%e a(10) = #{9+1, 8+1+1, 4+4+1+1, 4+1+1+1+1+1+1, 1+1+1+1+1+1+1+1+1+1} = 5.
%t nmax = 65; c2max = nmax^(1/2); c3max = nmax^(1/3);
%t s = Flatten[{Table[n^2, {n, 1, c2max}]}~Join~{Table[n^3, {n, 1, c3max}]}];
%t Table[Count[IntegerPartitions@n, x_ /; SubsetQ[s, x]], {n, 0, nmax}] (* _Robert Price_, Jul 31 2020 *)
%Y Cf. A000041, A001156, A002760, A003108, A078635.
%K nonn
%O 0,5
%A _Reinhard Zumkeller_, Jul 16 2007
%E a(0)=1 prepended by _Ilya Gutkovskiy_, Jan 11 2017
|
