A163998 Primes p having the same parity as the number of partitions of p.
2, 3, 5, 7, 13, 17, 23, 29, 37, 41, 43, 53, 61, 67, 71, 73, 83, 89, 107, 127, 139, 157, 173, 181, 193, 199, 211, 223, 229, 233, 239, 251, 257, 263, 269, 277, 281, 283, 293, 311, 313, 331, 349, 367, 373, 389, 401, 421, 433, 443, 457, 461, 463, 467, 479, 491, 499
Offset: 1
Keywords
Examples
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.
Programs
-
Mathematica
Select[Prime[Range[100]], Mod[PartitionsP[#] - #, 2] == 0 &] (* T. D. Noe, Jan 30 2012 *)
Extensions
More terms from D. S. McNeil, May 10 2010
Comments