OFFSET
0,1
MATHEMATICA
Module[{nn=30, gr, fib}, gr=Array[Floor[#*GoldenRatio^2]&, nn]; fib= Fibonacci[ Range[nn]]; Table[ListConvolve[Take[gr, n], Take[fib, n]], {n, nn}]]//Flatten (* Harvey P. Dale, Feb 04 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved