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