A118303 Even values of the PartitionsQ function A000009.

2, 2, 4, 6, 8, 10, 12, 18, 22, 32, 38, 46, 54, 64, 76, 104, 122, 142, 192, 222, 256, 296, 340, 390, 448, 512, 668, 760, 864, 982, 1260, 1426, 1610, 1816, 2048, 2304, 2590, 2910, 3264, 3658, 4582, 5120, 5718, 6378, 7108, 8808, 9792, 10880, 12076, 13394, 14848

Offset: 1

Author

Reinhard Zumkeller, Apr 22 2006

Keywords

• nonn

Comments

a(n) = A000009(A090864(n)).

Links

• Alois P. Heinz, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A000009, A051044, A090864.

Programs

Mathematica

Select[PartitionsQ[Range[100]], EvenQ] (* Jean-François Alcover, Nov 10 2021 *)