|
|
A094400
|
|
Odd n dividing Fibonacci(n)-1 but neither Fibonacci(n-1) nor Fibonacci(n+1).
|
|
5
|
|
|
7743, 27071, 54839, 72831, 217257, 388367, 417601, 575599, 670879, 691447, 701569, 809999, 850541, 881011, 1274897, 1365407, 1383249, 1464449, 1504097, 1653751, 1922817, 2106017, 2276351, 2385811, 2474047, 2556553, 2628879, 2697899, 2804543, 3017729, 3352049
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Range[50000], OddQ[ # ] && Mod[Fibonacci[ # ] - 1, # ] == 0 && ! Mod[Fibonacci[ # - 1], # ] == 0 && ! Mod[Fibonacci[ # + 1], # ] == 0 &]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|