|
|
A094410
|
|
Numbers k that divide Fibonacci(k-1) but do not divide Fibonacci(k) - 1.
|
|
2
|
|
|
442, 1891, 6601, 8149, 13981, 17119, 17711, 30889, 40501, 52701, 68101, 78409, 88601, 88831, 115231, 138601, 145351, 150121, 153781, 191351, 199801, 218791, 265881, 266071, 316561, 332949, 342271, 348517, 407353, 453151, 456301, 464101
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Range[50000], ! Mod[Fibonacci[ # ] - 1, # ] == 0 && Mod[Fibonacci[ # - 1], # ] == 0 &]
|
|
PROG
|
(PARI) fibmod(n, m)=(Mod([0, 1; 1, 1], m)^n*[0; 1])[1, 1]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|