%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_