A127219 Even numbers with an even number of partitions.

2, 8, 10, 22, 26, 28, 30, 34, 40, 42, 46, 50, 58, 62, 64, 66, 70, 74, 78, 80, 84, 86, 94, 96, 98, 100, 106, 108, 110, 112, 116, 120, 122, 124, 126, 128, 130, 136, 142, 154, 158, 160, 170, 174, 176, 180, 184, 198, 200, 206, 224, 228, 230, 236, 246, 248

Offset: 1

Author

Zak Seidov, Mar 28 2007

Keywords

• nonn

Examples

			10 is in the sequence because the number of partitions of 10 is equal to 42 and both 10 and 42 are even numbers. - _Omar E. Pol_, Mar 18 2012
		

Crossrefs

Cf. A000041, A005843, A154798.

Programs

Maple

with(combinat): a:=proc(n) if numbpart(2*n) mod 2 = 0 then 2*n else fi end: seq(a(n),n=1..100); # Emeric Deutsch, Mar 31 2007

Mathematica

Select[Range[2, 250, 2], EvenQ[PartitionsP[#]]&] (* Jean-François Alcover, Aug 28 2024 *)

Extensions

More terms a(50)-a(56) from Omar E. Pol, Mar 18 2012