|
%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
|
