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

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

Offset

1,1

Comments

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

Links

Table of n, a(n) for n=1..10.

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

Eric Weisstein's World of Mathematics, Partition Function Q

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 *)

Crossrefs

Cf. A000009, A035359.

Sequence in context: A228162 A080669 A099205 * A266583 A002163 A093422

Adjacent sequences: A051002 A051003 A051004 * A051006 A051007 A051008

Keyword

nonn,nice

Author

Eric W. Weisstein

Status

approved