login
PartitionsQ[ A035359 ], i.e., prime values of PartitionsQ.
3

%I #20 Aug 03 2017 02:53:05

%S 2,2,3,5,89,29927,444793,602644050950309,5907806880101973271193081,

%T 442874899733097781915111718440153

%N PartitionsQ[ A035359 ], i.e., prime values of PartitionsQ.

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

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/PartitionFunctionQCongruences.html">Partition Function Q Congruences.</a>

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/PartitionFunctionQ.html">Partition Function Q</a>

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

%t Select[PartitionsQ[Range[2500]],PrimeQ] (* _Harvey P. Dale_, Aug 11 2015 *)

%Y Cf. A000009, A035359.

%K nonn,nice

%O 1,1

%A _Eric W. Weisstein_