login
A127219
Even numbers with an even number of partitions.
8
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,1
EXAMPLE
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
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Mar 28 2007
EXTENSIONS
More terms a(50)-a(56) from Omar E. Pol, Mar 18 2012
STATUS
approved