OFFSET
0,5
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..23
MAPLE
F:= n-> (<<0|1>, <1|1>>^n)[1, 2]:
g:= proc(n) option remember; `if`(n=0, 1, add(g(n-j)*add(
`if`(d::odd, d, 0), d=numtheory[divisors](j)), j=1..n)/n)
end:
a:= n-> g(F(n)):
seq(a(n), n=0..18); # Alois P. Heinz, Apr 06 2021
MATHEMATICA
Table[ PartitionsQ[ Fibonacci[n]], {n, 1, 19}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jul 06 2002
EXTENSIONS
a(0)=1 prepended and a(19) added by Alois P. Heinz, Apr 06 2021
STATUS
approved