A014242 (n-th Fibonacci number that is not 1) - (n-th number that is 1 or not a Fibonacci number).

1, -1, -1, 1, 4, 11, 23, 43, 75, 129, 217, 360, 592, 968, 1577, 2562, 4158, 6741, 10921, 17685, 28630, 46340, 74996, 121363, 196387, 317779, 514196, 832005, 1346233, 2178272, 3524540, 5702848, 9227425

Offset

1,5

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

With[{nn=40}, Module[{fibs=Fibonacci[Range[3, nn]], non, len}, non= Complement[ Range[ nn], fibs]; len= Min[ Length[ fibs], Length[ non]]; #[[1]]-#[[2]]&/@ Thread[{ Take [fibs, len], Take[non, len]}]]] (* Harvey P. Dale, Jan 09 2017 *)

Crossrefs

Sequence in context: A237586 A173702 A244281 * A240074 A008181 A008214

Adjacent sequences: A014239 A014240 A014241 * A014243 A014244 A014245

Keyword

sign

Author

Clark Kimberling

Status

approved