|
%I #21 Aug 28 2015 12:04:53
%S 2,22,42,1002,2436,3718,5604,12310,37338,53174,105558,204226,715220,
%T 1300156,1741630,2323520,4087968,7089500,12132164,15796476,26543660,
%U 34262962,92669720,118114304,150198136,190569292,384276336,483502844
%N Even partition numbers of even numbers.
%C Even numbers in A058696.
%H Charles R Greathouse IV, <a href="/A154798/b154798.txt">Table of n, a(n) for n = 1..10000</a>
%p aa:= proc(n, i) if n=0 then 1 elif n<0 or i=0 then 0 else aa(n,i):= aa(n, i-1) +aa(n-i, i) fi end: a:= proc(n) local k; if n>1 then a(n-1) fi; for k from `if`(n=1, 0, b(n-1)+2) by 2 while irem(aa(k, k), 2)=1 do od; b(n):= k; aa(k, k) end: seq(a(n), n=1..40); # _Alois P. Heinz_, Jul 28 2009
%t Select[Table[PartitionsP[n], {n, 0, 200, 2}], EvenQ] (* _Jean-François Alcover_, Aug 28 2015 *)
%o (PARI) select(x->!(x%2), vector(80, n, numbpart(2*n))) \\ _Michel Marcus_, Aug 28 2015
%Y Cf. A000041, A005843, A058696, A154795, A154796, A154797.
%K nonn
%O 1,1
%A _Omar E. Pol_, Jan 26 2009
%E More terms from _Alois P. Heinz_, Jul 28 2009
|
