A023612 Convolution of Fibonacci numbers and A001950.

2, 7, 16, 33, 62, 110, 190, 320, 533, 879, 1440, 2350, 3824, 6210, 10073, 16324, 26441, 42812, 69302, 112166, 181522, 293745, 475327, 769134, 1244526, 2013728, 3258324, 5272125, 8530524

Offset: 0

Author

Clark Kimberling

Keywords

• nonn

Programs

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 *)