|
| |
|
|
A093372
|
|
Composite n such that Fibonacci(n) == Legendre(n,5) == 1 (mod n).
|
|
2
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
MATHEMATICA
| Select[ Range[ 2, 100000 ], ! PrimeQ[ # ] && Mod[ Fibonacci[ # ] - JacobiSymbol[ #, 5 ], # ] == 0 && JacobiSymbol[ #, 5 ] == 1 & ]
|
|
|
CROSSREFS
| Cf. A049062, A090820, A094063.
Sequence in context: A179249 A045734 A049062 * A091982 A072322 A045728
Adjacent sequences: A093369 A093370 A093371 * A093373 A093374 A093375
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| N. J. A. Sloane (njas(AT)research.att.com), Apr 29 2004
|
|
|
EXTENSIONS
| More terms from Eric S Rowland (erowland(AT)math.rutgers.edu), Apr 29 2004
More terms from Ryan Propper (rpropper(AT)stanford.edu), Jul 21 2006
|
| |
|
|
