A191876 - OEIS

%I #11 Jan 05 2021 17:01:59

%S 1,2,3,4,5,7,11,12,16,18,19,20,27,29,31,35,43,47,50,51,55,59,70,76,81,

%T 82,90,94,98,113,123,131,133,145,153,157,161,183,199,212,215,235,247,

%U 255,259,263,296,322,343,348,380,400,412,420,424,428,479,521

%N Ordered sequence of nonnegative differences 3*f-4*g, where f and g are positive Fibonacci numbers (A000045).

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

%p N:= 10^6: # for terms <= N

%p S:= {}:

%p for n from 3 do

%p   v:= 3*combinat:-fibonacci(n) - 4*combinat:-fibonacci(n-1);

%p   if v > N then break fi;

%p   S:= S union {v};

%p   for j from n-2 to 1 by -1 do

%p     v:= 3*combinat:-fibonacci(n)- 4*combinat:-fibonacci(j);

%p     if v > N then break fi;

%p     S:= S union {v};

%p od od:

%p sort(convert(S,list)); # _Robert Israel_, Jan 05 2021

%t (See A191875.)

%Y Cf. A000045, A191875, A191877, A191878.

%K nonn

%O 1,2

%A _Clark Kimberling_, Jun 18 2011

%E 0 removed by _Robert Israel_, Jan 05 2021