OFFSET
1,1
COMMENTS
The Mathematica coding uses the fact that the Pisano period - the period with which a Fibonacci sequence (mod n) repeats itself is not more than 6n and the fact that the Fibonacci sequence starts with 0.
LINKS
Tanya Khovanova, 9 Divides no Odd Fibonacci, arXiv:0712.3509 [math.CO], 2007.
MATHEMATICA
Transpose[ Select[Table[{k, Select[Table[{n, Mod[Fibonacci[n], k]}, {n, 6k + 1}], Mod[ #[[1]], 3] != 0 && #[[2]] == 0 &]}, {k, 1, 351, 2}], #[[2]] == {} &]][[1]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Tanya Khovanova, Oct 14 2007, Oct 17 2007
STATUS
approved