A154798 Even partition numbers of even numbers.

2, 22, 42, 1002, 2436, 3718, 5604, 12310, 37338, 53174, 105558, 204226, 715220, 1300156, 1741630, 2323520, 4087968, 7089500, 12132164, 15796476, 26543660, 34262962, 92669720, 118114304, 150198136, 190569292, 384276336, 483502844

Offset: 1

Author

Omar E. Pol, Jan 26 2009

Keywords

• nonn

Comments

Even numbers in A058696.

Links

• Charles R Greathouse IV, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A000041, A005843, A058696, A127219, A154795, A154796, A154797.

Programs

Maple

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

Mathematica

Select[Table[PartitionsP[n], {n, 0, 200, 2}], EvenQ] (* Jean-François Alcover, Aug 28 2015 *)

PARI

select(x->!(x%2), vector(80, n, numbpart(2*n))) \\ Michel Marcus, Aug 28 2015

Extensions

More terms from Alois P. Heinz, Jul 28 2009