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,1

Links

Table of n, a(n) for n=0..28.

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

Adjacent sequences: A023609 A023610 A023611 * A023613 A023614 A023615

Keyword

nonn

Author

Clark Kimberling

Status

approved