%I #26 Oct 31 2023 19:25:04

%S 2,3,5,7,13,17,23,29,37,41,43,53,61,67,71,73,83,89,107,127,139,157,

%T 173,181,193,199,211,223,229,233,239,251,257,263,269,277,281,283,293,

%U 311,313,331,349,367,373,389,401,421,433,443,457,461,463,467,479,491,499

%N Primes p having the same parity as the number of partitions of p.

%C Except the first term, primes with an odd number of partitions.

%C Primes in A194798. - _Omar E. Pol_, Mar 17 2012

%e 7 is in the sequence because the number of partitions of 7 is equal to 15 and both 7 and 15 have the same parity.

%t Select[Prime[Range[100]], Mod[PartitionsP[#] - #, 2] == 0 &] (* _T. D. Noe_, Jan 30 2012 *)

%Y Cf. A000040, A000041, A040051, A052002, A163997, A194798.

%K nonn

%O 1,1

%A _Omar E. Pol_, Aug 09 2009

%E More terms from _D. S. McNeil_, May 10 2010