A051005 PartitionsQ[ A035359 ], i.e., prime values of PartitionsQ.

2, 2, 3, 5, 89, 29927, 444793, 602644050950309, 5907806880101973271193081, 442874899733097781915111718440153

Offset: 1

Author

Eric W. Weisstein

Keywords

• nonn
• nice

Comments

The next term is known (see A035359) but is too big to include here.

Links

• Eric Weisstein's World of Mathematics, Partition Function Q Congruences.
• Eric Weisstein's World of Mathematics, Partition Function Q

Crossrefs

Cf. A000009, A035359.

Programs

Mathematica

Reap[For[n = 1, n <= 2500, n++, If[PrimeQ[q = PartitionsQ[n]], Print["n = ", n, " Q = ", q]; Sow[q]]]][[2, 1]] (* Jean-François Alcover, Oct 19 2012 *)
Select[PartitionsQ[Range[2500]],PrimeQ] (* Harvey P. Dale, Aug 11 2015 *)