A272635 - OEIS

%I #14 May 07 2016 00:34:33

%S 17,25,27,28,30,38,40,41,43,44,45,46,48,49,51,59,61,62,64,65,66,67,69,

%T 70,71,72,73,74,75,77,78,79,80,82,83,85,93,95,96,98,99,100,101,103,

%U 104,105,106,107,108,109,111,112,113,114,115,116,117,118,119,120,121,122

%N Numbers that are not a sum or a difference of two Fibonacci numbers.

%C This sequence is the complement of the union of A007298 and A084176.

%H Robert Israel, <a href="/A272635/b272635.txt">Table of n, a(n) for n = 1..10000</a>

%p N:= 30: # to get all terms < A000045(N+1) - A000045(N-4)

%p fibs:= [seq(combinat:-fibonacci(i),i=1..N)]:

%p R:= {seq(seq(fibs[i]-fibs[j],j=1..i-1),i=1..N), seq(seq(fibs[i]+fibs[j],j=1..i),i=1..N)}:

%p A:= {$1..fibs[-1]+fibs[-2]-fibs[-5]-1} minus R:

%p sort(convert(A,list)); # _Robert Israel_, May 04 2016

%Y Cf. A000045, A007298, A084176, A105448, A105449.

%K nonn,easy

%O 1,1

%A _Altug Alkan_, May 04 2016