%I #14 Dec 30 2017 09:50:41
%S 1,0,0,0,0,0,1,1,1,2,1,4,3,4,4,6,6,11,11,13,17,20,26,32,37,43,55,63,
%T 81,92,111,126,159,183,225,259,307,357,430,497,589,683,797,929,1093,
%U 1270,1478,1712,1979,2303,2665,3086,3556,4102,4716,5444,6256,7194,8243,9456,10824
%N Number of partitions of n into an equal number of prime and composite parts.
%C a(n) = A002865(n) - A116450(n).
%H Andrew Howroyd, <a href="/A116449/b116449.txt">Table of n, a(n) for n = 0..1000</a>
%e a(14) = #{2+2*2*3, (2+2)+(2*3+2*2), 5+3*3, (3+3)+(2*2+2*2)} =
%e 4;
%e a(15) = #{3+2*2*3, 5+2*5, (2+3)+(2*2+2*3), 7+2*2*2,
%e (2+5)+(2*2+2*2), 11+2*2} = 6.
%t terms = 61;
%t pp = 1/(Product[1 - If[PrimeQ[k], y, 1/y]*x^k, {k, 2, terms-3}] + O[x]^terms) // Normal;
%t Take[Expand[pp ], terms-5] // CoefficientList[#, x]& (* _Jean-François Alcover_, Dec 30 2017, after _Andrew Howroyd_ *)
%o (PARI)
%o parts(n)={1/(prod(k=2, n, 1 - if(isprime(k), y, 1/y)*x^k + O(x*x^n)))}
%o {my(n=60); apply(p->polcoeff(p,0), Vec(parts(n)))} \\ _Andrew Howroyd_, Dec 29 2017
%K nonn
%O 0,10
%A _Reinhard Zumkeller_, Feb 16 2006
%E a(0)=1 from _Andrew Howroyd_, Dec 29 2017