OFFSET
1,1
MATHEMATICA
f[n_]:=PartitionsP[n]; lst={}; Do[p=Prime[n]; If[PrimeQ[f[p]], AppendTo[lst, f[p]]], {n, 6!}]; lst
Select[PartitionsP[Prime[Range[1000]]], PrimeQ] (* Harvey P. Dale, May 16 2020 *)
PROG
(PARI) forprime(p=2, 1e4, k=numbpart(p); if(isprime(k), print1(k", ")))
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jul 21 2009
EXTENSIONS
Program by Charles R Greathouse IV, Oct 12 2009
More terms from Harvey P. Dale, May 16 2020
STATUS
approved