A094063 Composite n such that Fibonacci(n) == Legendre(n,5) == -1 (mod n).

5777, 10877, 12958, 17302, 40948, 41998, 75077, 88198, 95038, 100127, 113573, 130942, 133742, 156178, 160378, 161027, 162133, 163438, 168838, 203942, 219742, 231703, 300847, 314158, 336598, 390598, 393118, 430127, 467038, 480478, 534508

Offset: 1

Author

Eric Rowland, Apr 29 2004

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..235

Crossrefs

Cf. A049062, A090820, A093372.

Programs

Mathematica

Select[ Range[ 2, 100000 ], ! PrimeQ[ # ] && Mod[ Fibonacci[ # ] - JacobiSymbol[ #, 5 ], # ] == 0 && JacobiSymbol[ #, 5 ] == -1 & ]

Extensions

More terms from Ryan Propper, Nov 07 2006