login
A014242
(n-th Fibonacci number that is not 1) - (n-th number that is 1 or not a Fibonacci number).
1
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
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
KEYWORD
sign
STATUS
approved