A076519 Numbers n such that Fibonacci(n) == prime(n) (mod n).

1, 2, 3, 4, 68, 76, 116, 181, 357, 789, 1251, 3861, 40087, 125902, 201986, 251737, 846623, 936418, 1327269, 2003626, 3546266, 4124468, 4832054, 4866214, 5086202, 5627521, 92660777, 331915497, 339145743, 394668171, 472845243, 679387634

Offset

1,2

Comments

a(33) > 2*10^9. - Giovanni Resta, Jul 20 2013

Links

Table of n, a(n) for n=1..32.

Mathematica

Select[Range[3*10^4], Mod[Fibonacci[ # ], # ] == Mod[Prime[ # ], # ] &]

Crossrefs

Sequence in context: A004855 A097930 A012322 * A066776 A115901 A073325

Adjacent sequences: A076516 A076517 A076518 * A076520 A076521 A076522

Keyword

nonn

Author

Joseph L. Pe, Oct 17 2002

Extensions

a(13)-a(32) from Giovanni Resta, Jul 20 2013

Status

approved