|
|
A049062
|
|
Composite n coprime to 5 such that Fibonacci(n) == Legendre(n,5) (mod n).
|
|
10
|
|
|
4181, 5474, 5777, 6479, 6721, 10877, 12958, 13201, 15251, 17302, 27071, 34561, 40948, 41998, 44099, 47519, 51841, 54839, 64079, 64681, 65471, 67861, 68251, 72831, 75077, 78089, 88198, 90061, 95038, 96049, 97921
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
If n is a prime, not 5, then Fibonacci(n) == Legendre(n,5) (mod n) (see for example G. H. Hardy and E. M. Wright, Theory of Numbers).
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[ Range[ 2, 100000 ], ! PrimeQ[ # ] && Mod[ #, 5 ] != 0 && Mod[ Fibonacci[ # ] - JacobiSymbol[ #, 5 ], # ] == 0 & ]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,nice
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Yorinaga gives table up to 707000
|
|
STATUS
|
approved
|
|
|
|