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
CROSSREFS
KEYWORD
nonn
AUTHOR
Omar E. Pol, Jan 26 2009
EXTENSIONS
More terms from Alois P. Heinz, Jul 28 2009
STATUS
approved