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,1

Links

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

Mathematica

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

Crossrefs

Cf. A049062, A090820, A094063.

Sequence in context: A045734 A155511 A049062 * A212424 A319168 A091982

Adjacent sequences: A093369 A093370 A093371 * A093373 A093374 A093375

Keyword

nonn

Author

N. J. A. Sloane, Apr 29 2004

Extensions

More terms from Eric Rowland, Apr 29 2004

More terms from Ryan Propper, Jul 21 2006

Status

approved