|
|
A057756
|
|
Least nonnegative square root of -1 mod n for n in A008784.
|
|
3
|
|
|
0, 1, 2, 3, 5, 4, 7, 5, 12, 13, 6, 9, 7, 23, 17, 11, 8, 27, 31, 9, 13, 34, 22, 10, 23, 33, 15, 11, 57, 47, 37, 12, 27, 44, 28, 70, 13, 80, 55, 19, 43, 81, 75, 14, 91, 32, 33, 21, 15, 107, 89, 64, 57, 16, 23, 82, 37, 60, 53, 38, 17, 138, 105
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
MATHEMATICA
|
A008784 = Select[ Range[300], And @@ (Mod[#, 4] == 1 & ) /@ (fi = FactorInteger[#]; If[ fi[[1]] == {2, 1}, Rest[ fi[[All, 1]]], fi[[All, 1]]])& ]; a[n_] := Min[r /. {ToRules[ Reduce[ Mod[r^2 + 1, A008784[[n]]] == 0, r, Integers] /. C[1] -> 0]}]; a[1] = 0; Table[a[n], {n, 1, 63}] (* Jean-François Alcover, Sep 19 2012 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy,nice
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Corrected by T. D. Noe, Apr 19 2007 [The errors were caused by the faulty Maple command "mroot"]
|
|
STATUS
|
approved
|
|
|
|