login
A154798
Even partition numbers of even numbers.
12
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,1
COMMENTS
Even numbers in A058696.
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
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 *)
PROG
(PARI) select(x->!(x%2), vector(80, n, numbpart(2*n))) \\ Michel Marcus, Aug 28 2015
KEYWORD
nonn
AUTHOR
Omar E. Pol, Jan 26 2009
EXTENSIONS
More terms from Alois P. Heinz, Jul 28 2009
STATUS
approved