OFFSET
1,8
COMMENTS
The Lucas numbers mod n for any n are periodic - see A106291 for period lengths.
LINKS
T. D. Noe, Table of n, a(n) for n = 1..1000
D. D. Wall, Fibonacci series modulo m, Amer. Math. Monthly, 67 (1960), 525-532.
MATHEMATICA
pisano[n_] := Module[{a = {2, 1}, a0, k = 0, s, t}, If[n == 1, 1, a0 = a; t = a; While[k++; s = Mod[Plus @@ a, n]; AppendTo[t, s]; a[[1]] = a[[2]]; a[[2]] = s; a != a0]; t]]; Join[{0, 0}, Table[u = Union[pisano[n]]; mx = Max[u]; Length[Complement[Range[0, mx], u]], {n, 3, 100}]] (* T. D. Noe, Mar 22 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Casey Mongoven, Mar 20 2013
STATUS
approved