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,1

Links

Table of n, a(n) for n=1..56.

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

Cf. A000041, A005843, A154798.

Sequence in context: A193266 A108468 A165593 * A122208 A297475 A106358

Adjacent sequences: A127216 A127217 A127218 * A127220 A127221 A127222

Keyword

nonn,changed

Author

Zak Seidov, Mar 28 2007

Extensions

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

Status

approved