OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
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