|
| |
|
|
A023170
|
|
Numbers n such that Fibonacci(n) == -55 (mod n).
|
|
0
| |
|
|
1, 2, 3, 5, 10, 20, 70, 110, 116, 130, 170, 230, 285, 322, 370, 430, 470, 494, 530, 555, 620, 670, 730, 770, 830, 970, 1030, 1070, 1130, 1270, 1334, 1370, 1570, 1630, 1670, 1730, 1930, 1970, 2230, 2270, 2330, 2530, 2570, 2630, 2770, 2830, 2870, 2930, 3070
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
MATHEMATICA
| Join[{1, 2, 3, 5, 10, 20}, Select[Range[3100], Mod[Fibonacci[#], #]==#-55&]] (* From Harvey P. Dale, Jan 20 2012 *)
|
|
|
CROSSREFS
| Sequence in context: A047101 A057755 A076834 * A125312 A014626 A132418
Adjacent sequences: A023167 A023168 A023169 * A023171 A023172 A023173
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| David W. Wilson (davidwwilson(AT)comcast.net)
|
| |
|
|
