OFFSET
1,4
COMMENTS
For a guide to related sequences, see A204892.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
lucas:= gfun:-rectoproc({a(n)=a(n-1)+a(n-2), a(0)=2, a(1)=1}, a(n), remember):
f:= proc(n) local j, k, S, t;
S:= [];
for k from 1 do
t:= lucas(k) mod n;
if member(t, S, j) then return lucas(j) fi;
S:= [op(S), t];
od
end proc:
map(f, [$1..100]); # Robert Israel, Jan 21 2018
MATHEMATICA
(See the program at A205114.)
CROSSREFS
KEYWORD
nonn,look
AUTHOR
Clark Kimberling, Jan 22 2012
EXTENSIONS
Name corrected by Robert Israel, Jan 21 2018
STATUS
approved