[go: up one dir, main page]

login
A191876
Ordered sequence of nonnegative differences 3*f-4*g, where f and g are positive Fibonacci numbers (A000045).
6
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, 82, 90, 94, 98, 113, 123, 131, 133, 145, 153, 157, 161, 183, 199, 212, 215, 235, 247, 255, 259, 263, 296, 322, 343, 348, 380, 400, 412, 420, 424, 428, 479, 521
OFFSET
1,2
LINKS
MAPLE
N:= 10^6: # for terms <= N
S:= {}:
for n from 3 do
v:= 3*combinat:-fibonacci(n) - 4*combinat:-fibonacci(n-1);
if v > N then break fi;
S:= S union {v};
for j from n-2 to 1 by -1 do
v:= 3*combinat:-fibonacci(n)- 4*combinat:-fibonacci(j);
if v > N then break fi;
S:= S union {v};
od od:
sort(convert(S, list)); # Robert Israel, Jan 05 2021
MATHEMATICA
(See A191875.)
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Jun 18 2011
EXTENSIONS
0 removed by Robert Israel, Jan 05 2021
STATUS
approved