OFFSET
1,4
COMMENTS
a(n) = 1 for all prime values of n. Composite values for which a(n) = 1 are listed in A005845.
LINKS
T. D. Noe, Table of n, a(n) for n = 1..10000
MAPLE
with(combinat):f:=n-> fibonacci(n):L:=n->f(2*n)/f(n): seq(L(n) mod n, n= 1..75)
# alternative
A213060 := proc(n::integer)
modp(A000032(n), n) ;
end proc:
seq(A213060(n), n=1..100) ; # R. J. Mathar, Oct 02 2019
MATHEMATICA
Table[Mod[LucasL[n], n], {n, 100}] (* T. D. Noe, Jun 06 2012 *)
PROG
(Magma) [Lucas(n) mod (n) : n in [1..120]]; // Vincenzo Librandi, Nov 19 2015
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Gary Detlefs, Jun 03 2012
STATUS
approved