OFFSET
0,2
COMMENTS
Number of partitions of 2n such that either all parts are odd or all parts are even, n >= 1. - Omar E. Pol, Aug 16 2013
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..1000
MAPLE
b:= proc(n, i) option remember; `if`(i>n, 0,
`if`(irem(n, i)=0, 1, 0)+add(`if`(irem(j, 2)=0,
b(n-i*j, i+1), 0), j=0..n/i))
end:
a:= n-> b(2*n, 1):
seq(a(n), n=0..60); # Alois P. Heinz, Mar 26 2014
MATHEMATICA
b[n_, i_] := b[n, i] = If[i>n, 0, If[Mod[n, i]==0, 1, 0] + Sum[If[Mod[j, 2] ==0, b[n-i*j, i+1], 0], {j, 0, n/i}]]; a[n_] := b[2*n, 1]; Table[a[n], {n, 0, 60}] (* Jean-François Alcover, Jan 17 2016, after Alois P. Heinz *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Aug 20 2004
STATUS
approved