A107858 a(n) = b(k), where b(k) = Fibonacci(n-1) and k = floor( n*(1+sqrt(5))/2 ).

1, 1, 2, 3, 7, 11, 28, 45, 117, 189, 494, 799, 2091, 3383, 8856, 14329, 37513, 60697, 158906, 257115, 673135, 1089155, 2851444, 4613733, 12078909, 19544085, 51167078, 82790071, 216747219, 350704367, 918155952, 1485607537, 3889371025

Offset: 1

Author

Roger L. Bagula, Jun 12 2005

Keywords

• nonn

Comments

Limit_{n -> oo} a(n+1)/a(n) does not exist.

Apparently the same as A107857. - Georg Fischer, Nov 02 2018

Crossrefs

Cf. A000045, A107857, A185381.

Programs

Mathematica

F[1] = 0; F[2] = 1; F[n__] := F[n] = F[n - 1] + F[n - 2]
Table[F[ Floor[(Sqrt[5] + 1)*n/2]], {n, 1, 50}] (* F[n] are the Fibonacci numbers, A000045, with offset 1 *)

Extensions

Edited by N. J. A. Sloane, May 06 2012