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

Comments

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

Links

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

Mathematica

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

Crossrefs

Cf. A000009, A051044, A090864.

Sequence in context: A049625 A202102 A300576 * A145817 A145809 A309711

Adjacent sequences: A118300 A118301 A118302 * A118304 A118305 A118306

Keyword

nonn

Author

Reinhard Zumkeller, Apr 22 2006

Status

approved