A163097 Even numbers with an odd number of partitions.
0, 4, 6, 12, 14, 16, 18, 20, 24, 32, 36, 38, 44, 48, 52, 54, 56, 60, 68, 72, 76, 82, 88, 90, 92, 102, 104, 114, 118, 132, 134, 138, 140, 144, 146, 148, 150, 152, 156, 162, 164, 166, 168, 172, 178, 182, 186, 188, 190, 192, 194, 196, 202, 204, 208, 210, 212, 214, 216
Offset: 1
Keywords
Programs
-
Mathematica
Select[2*Range[0,150],OddQ[PartitionsP[#]]&] (* Harvey P. Dale, Nov 13 2013 *)
Extensions
More terms from Sean A. Irvine, Oct 26 2009