# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/
Search: id:a279760
Showing 1-1 of 1
%I A279760 #12 Aug 31 2017 04:36:16
%S A279760 1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,1,0,0,0,0,1,0,
%T A279760 0,1,0,0,0,0,1,0,0,1,0,0,0,0,1,0,0,1,0,0,1,0,1,0,0,1,0,0,1,0,1,0,0,1,
%U A279760 0,0,1,0,1,0,0,1,0,0,1,0,1,1,0,1,0,0,1,0,1,1,0,1,0,0,1,0,1,1,0,1,0,0,1,0,1,1,0,1,1,0,1,0,1,1,0,1,1,0,1,0,1
%N A279760 Expansion of Product_{k>=1} 1/(1 - x^(prime(k)^3)).
%C A279760 Number of partitions of n into cubes of primes (A030078).
%H A279760 Antti Karttunen, Table of n, a(n) for n = 0..2055
%H A279760 M. Bernstein and N. J. A. Sloane, Some canonical sequences of integers, Linear Alg. Applications, 226-228 (1995), 57-72; erratum 320 (2000), 210. [Link to arXiv version]
%H A279760 M. Bernstein and N. J. A. Sloane, Some canonical sequences of integers, Linear Alg. Applications, 226-228 (1995), 57-72; erratum 320 (2000), 210. [Link to Lin. Alg. Applic. version together with omitted figures]
%H A279760 Index entries for sequences related to sums of cubes
%H A279760 Index entries for related partition-counting sequences
%F A279760 G.f.: Product_{k>=1} 1/(1 - x^(prime(k)^3)).
%e A279760 a(35) = 1 because we have [27, 8].
%e A279760 For n = 152, there are two solutions: 152 = 5^3 + 3^3 = 19 * 2^3, thus a(152) = 2. This is also the first point where the sequence obtains value larger than one. - _Antti Karttunen_, Aug 31 2017
%t A279760 nmax = 120; CoefficientList[Series[Product[1/(1 - x^(Prime[k]^3)), {k, 1, nmax}], {x, 0, nmax}], x]
%o A279760 (PARI) A279760(n,m=8) = { my(s=0,p); if(!n,1,for(c=m,n,if((ispower(c,3,&p)&&isprime(p)), s+=A279760(n-c,c))); (s)); }; \\ _Antti Karttunen_, Aug 31 2017
%Y A279760 Cf. A000607, A003108, A030078, A078128, A090677.
%K A279760 nonn
%O A279760 0
%A A279760 _Ilya Gutkovskiy_, Dec 18 2016
# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE