OFFSET
0,5
MAPLE
b:= proc(n, i) option remember; `if`(n>i^2, 0,
`if`(i=0, 1, b(n+2*i-1, i-1)+b(abs(n-2*i+1), i-1)))
end:
a:=n-> b(irem(n, 2), n):
seq(a(n), n=0..40); # Alois P. Heinz, Jan 26 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Jan 26 2024
STATUS
approved