OFFSET
0,9
LINKS
Vaclav Kotesovec, Table of n, a(n) for n = 0..10000
EXAMPLE
MATHEMATICA
Table[Count[IntegerPartitions[n], _?(AllTrue[#, PrimeQ]&&EvenQ[Length[ #]]&)], {n, 0, 70}] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Feb 16 2018 *)
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) + 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(69) corrected by Andrew Howroyd, Dec 28 2017
STATUS
approved