OFFSET
1,2
EXAMPLE
5 is a term because A000070(5) = 19 and 19 a is prime.
MATHEMATICA
Complement[Table[If[PrimeQ[Sum[PartitionsP[n], {n, 0, k}]] == True, k, 0], {k, 0, 2000}], {0}]
PROG
(PARI) isok(n) = isprime(sum(k=0, n, numbpart(k))); \\ Michel Marcus, Apr 06 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Benedict W. J. Irwin, Mar 29 2016
STATUS
approved