A014241 a(n) = ((n+1)-st Fibonacci number) - (n-th non-Fibonacci number).

-3, -4, -4, -4, -2, 2, 9, 20, 40, 73, 127, 215, 358, 590, 965, 1574, 2560, 4156, 6739, 10919, 17683, 28628, 46338, 74994, 121361, 196385, 317776, 514193, 832003, 1346231, 2178270, 3524538, 5702846, 9227423

Offset

1,1

Links

G. C. Greubel, Table of n, a(n) for n = 1..1000

Formula

a(n) = A000045(n+1) - A001690(n). - Felix Fröhlich, Jun 22 2019

Mathematica

b:= Complement[Range[1, 200], Fibonacci[Range[20]]]; Table[Fibonacci[n+1] - b[[n]], {n, 1, 50}] (* G. C. Greubel, Jun 22 2019 *)

Prog

(PARI) /* Functions lgg() and a001690(n) after Joerg Arndt in A001690 */
lgg(x) = log(x)/log((sqrt(5)+1)/2)
a001690(n) = n++; floor(n+lgg(sqrt(5)*(lgg(sqrt(5)*n)+n)-5+3/n)-2)
a(n) = fibonacci(n+1)-a001690(n) \\ Felix Fröhlich, Jun 22 2019

Crossrefs

Cf. A000045, A001690.

Sequence in context: A355017 A000916 A323846 * A199185 A279781 A262827

Adjacent sequences: A014238 A014239 A014240 * A014242 A014243 A014244

Keyword

sign

Author

Clark Kimberling

Status

approved