login
Even values of the PartitionsQ function A000009.
7

%I #13 Nov 10 2021 07:08:00

%S 2,2,4,6,8,10,12,18,22,32,38,46,54,64,76,104,122,142,192,222,256,296,

%T 340,390,448,512,668,760,864,982,1260,1426,1610,1816,2048,2304,2590,

%U 2910,3264,3658,4582,5120,5718,6378,7108,8808,9792,10880,12076,13394,14848

%N Even values of the PartitionsQ function A000009.

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

%H Alois P. Heinz, <a href="/A118303/b118303.txt">Table of n, a(n) for n = 1..10000</a>

%t Select[PartitionsQ[Range[100]], EvenQ] (* _Jean-François Alcover_, Nov 10 2021 *)

%Y Cf. A000009, A051044, A090864.

%K nonn

%O 1,1

%A _Reinhard Zumkeller_, Apr 22 2006