|
Search: id:A093372
|
|
|
| A093372 |
|
Composite n such that Fibonacci(n) == Legendre(n,5) == 1 (mod n). |
|
+0
3
|
|
| 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; listen)
|
|
|
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: A104918 A045734 A049062 this_sequence A091982 A072322 A045728
Adjacent sequences: A093369 A093370 A093371 this_sequence A093373 A093374 A093375
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
njas, 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
|
|
|
Search completed in 0.002 seconds
|
