OFFSET
0,3
LINKS
Danny Rorabaugh, Table of n, a(n) for n = 0..4000
FORMULA
MATHEMATICA
Join[{1, 1}, Table[Sum[Fibonacci[m+2 -Binomial[j+3, 3]], {j, 0, n}], {n, 6}, {m, Binomial[n+3, 3] -2, Binomial[n+4, 3] -3}]]//Flatten (* G. C. Greubel, Jul 14 2022 *)
PROG
(Sage) #Assuming A023533 is available as an array
for n in range(34):
print(n, sum([A023533[k]*fibonacci(n+2-k) for k in range(1, n+2)]))
# Danny Rorabaugh, Mar 14 2015
(Magma)
A023533:= func< n | Binomial(Floor((6*n-1)^(1/3)) +2, 3) ne n select 0 else 1 >;
[(&+[Fibonacci(k)*A023533(n+2-k): k in [1..n+1]]): n in [0..50]]; // G. C. Greubel, Jul 14 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved