OFFSET
0,4
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..1000
MAPLE
b:= proc(n, i) option remember; local r;
if n<=0 or i<2 then 0
elif i=2 then `if`(irem(n, 2, 'r')=0, r, 0)
else b(n, i-1) +b(n-i, i)
fi
end:
a:= n-> b(2*n+1, 2*n+1):
seq(a(n), n=0..45); # Alois P. Heinz, Dec 03 2010
MATHEMATICA
b[n_, i_] := b[n, i] = If[n <= 0 || i < 2, 0, If[i == 2, If[Mod[n, 2] == 0, Quotient[n, 2], 0], b[n, i-1] + b[n-i, i]]];
a[n_] := b[2n+1, 2n+1];
a /@ Range[0, 45] (* Jean-François Alcover, Nov 11 2020, after Alois P. Heinz *)
Table[Count[Flatten[Select[IntegerPartitions[2 n+1], FreeQ[#, 1]&]], 2], {n, 0, 40}] (* Harvey P. Dale, Jan 28 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Omar E. Pol, Dec 03 2010
EXTENSIONS
More terms from Alois P. Heinz, Dec 03 2010
STATUS
approved