OFFSET
0,10
LINKS
Winston de Greef, Table of n, a(n) for n = 0..10000
Cristina Ballantine and George Beck, Partitions enumerated by self-similar sequences, arXiv:2303.11493 [math.CO], 2023. See p. 12.
FORMULA
a(n) = 0 <=> n in { A000079 }.
MAPLE
a:= proc(n) option remember; `if`(n<2, 1-n,
`if`(n::even, a(n/2), a(n-2)+a(n-3)))
end:
seq(a(n), n=0..80); # Alois P. Heinz, Mar 22 2023
PROG
(PARI) a(n) = if (n <= 1, return(1-n)); if (n%2, a(n-2) + a(n-3), a(n/2));
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Marcus, Mar 22 2023
STATUS
approved