OFFSET
0,10
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..10000
MAPLE
b:= proc(n, i) option remember; `if`(n=0, 1, `if`(i<1, 0,
b(n, i-1)+`if`(i::odd, b(n-i, min(n-i, i)), 0)))
end:
a:= n-> b(n, floor(sqrt(n))):
seq(a(n), n=0..70); # Alois P. Heinz, Jan 13 2024
MATHEMATICA
Table[SeriesCoefficient[Product[1/(1 - Boole[OddQ[k]] x^k), {k, 1, Floor[Sqrt[n]]}], {x, 0, n}], {n, 0, 70}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Jan 08 2024
STATUS
approved