OFFSET
0,8
LINKS
Vaclav Kotesovec, Table of n, a(n) for n = 0..10000 (terms 0..200 from Jean-François Alcover)
EXAMPLE
MATHEMATICA
a[n_] := a[n] = Count[IntegerPartitions[n, All, Prime[Range[PrimePi[n]]]], p_ /; OddQ[Length[p]]];
Reap[Do[Print[n, " ", a[n]]; Sow[a[n]], {n, 0, 200}]][[2, 1]] (* Jean-François Alcover, Feb 13 2020 *)
PROG
(PARI)
parts(n, pred, y)={prod(k=1, n, if(pred(k), 1/(1-y*x^k) + O(x*x^n), 1))}
{my(n=80); (Vec(parts(n, isprime, 1)) - Vec(parts(n, isprime, -1)))/2} \\ Andrew Howroyd, Dec 28 2017
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
R. J. Mathar, Jan 10 2011
EXTENSIONS
a(31)-a(70) corrected by Andrew Howroyd, Dec 28 2017
STATUS
approved