|
%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_
|
