login
A023612
Convolution of Fibonacci numbers and A001950.
0
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,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
Sequence in context: A130869 A212576 A208995 * A192952 A132738 A259966
KEYWORD
nonn
STATUS
approved