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

Author

Clark Kimberling

Keywords

• nonn

Programs

Mathematica

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

Extensions

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