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

%I #5 Jan 09 2017 16:29:02

%S 1,-1,-1,1,4,11,23,43,75,129,217,360,592,968,1577,2562,4158,6741,

%T 10921,17685,28630,46340,74996,121363,196387,317779,514196,832005,

%U 1346233,2178272,3524540,5702848,9227425

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

%H Harvey P. Dale, <a href="/A014242/b014242.txt">Table of n, a(n) for n = 1..1000</a>

%t 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 *)

%K sign

%O 1,5

%A _Clark Kimberling_