A093372 Composite k such that Fibonacci(k) == Legendre(k,5) == 1 (mod k).

4181, 5474, 6479, 6721, 13201, 15251, 27071, 34561, 44099, 47519, 51841, 54839, 64079, 64681, 65471, 67861, 68251, 72831, 78089, 90061, 96049, 97921, 109871, 118441, 139359, 146611, 157079, 163081, 168299, 186961, 196559, 197209, 219781

Offset: 1

Author

N. J. A. Sloane, Apr 29 2004

Keywords

• nonn

Links

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

Crossrefs

Cf. A049062, A090820, A094063.

Programs

Mathematica

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

Extensions

More terms from Eric Rowland, Apr 29 2004

More terms from Ryan Propper, Jul 21 2006