A025085 s(1)t(n) + s(2)t(n-1) + ... + s(k)t(n-k+1), where k = [ n/2 ], s = (Fibonacci numbers), t = A001950 (upper Wythoff sequence).

0, 5, 7, 17, 23, 48, 59, 107, 124, 218, 250, 424, 474, 790, 883, 1454, 1599, 2617, 2835, 4620, 5017, 8154, 8767, 14224, 15134, 24530, 26162, 42377, 44824, 72576, 77014, 124663, 131495, 212819, 222957, 360811, 378995, 613289, 640606, 1036587, 1086216, 1757602

Offset

1,2

Links

Table of n, a(n) for n=1..42.

Mathematica

Table[Sum[Fibonacci[k]*Floor[(n - k + 1)*GoldenRatio^2], {k, 1, Floor[n/2]}], {n, 1, 50}] (* Vaclav Kotesovec, Aug 06 2019 *)

Crossrefs

Sequence in context: A157755 A265812 A128352 * A175238 A240030 A032412

Adjacent sequences: A025082 A025083 A025084 * A025086 A025087 A025088

Keyword

nonn

Author

Clark Kimberling

Extensions

a(1)=0 added by Vaclav Kotesovec, Aug 06 2019

Status

approved