OFFSET
0,4
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..150
EXAMPLE
a(7) = |{{1}, {7}, {1, 3}, {1, 5}}| = 4.
MAPLE
b:= proc(n, i) option remember; `if`(n=0, {{}}, `if`(i<1, {},
{b(n, i-2)[], `if`(i>n, [][], map(x-> {x[], i}, b(n-i, i))[])}))
end:
a:= n-> nops(b(n, n-1+irem(n, 2))):
seq(a(n), n=0..60); # Alois P. Heinz, Jun 30 2016
MATHEMATICA
a[n_] := Union /@ IntegerPartitions[n, All, Range[1, n, 2]] // Union // Length;
a /@ Range[0, 60] (* Jean-François Alcover, Nov 18 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladeta Jovovic, Apr 21 2005
EXTENSIONS
More terms from David Wasserman, Apr 24 2008
a(0)=1 from Alois P. Heinz, Jun 30 2016
STATUS
approved