|
%I #9 Sep 20 2012 08:47:54
%S 0,1,1,0,5,4,9,5,7,11,6,9,13,7,15,11,8,26,25,17,9,20,13,19,10,45,21,
%T 15,11,51,48,35,25,23,12,17,40,68,55,25,59,13,19,30,27,85,14,76,45,95,
%U 29,65,21,15,66,51,31,103,73,35,16,23
%N Least nonnegative square root of 5 mod n for n in A057762.
%H T. D. Noe, <a href="/A057763/b057763.txt">Table of n, a(n) for n=1..1000</a>
%t A057762 = Prepend[ Select[ Range[300], Reduce[Mod[5 - k^2, #] == 0, k, Integers] =!= False &], 1]; a[n_] := Min[ r /. {ToRules[ Reduce[ Mod[r^2 - 5, A057762[[n]]] == 0, r, Integers] /. C[1] -> 0]}]; a[1] = 0; Table[a[n], {n, 1, 62}] (* _Jean-François Alcover_, Sep 20 2012 *)
%K nonn
%O 1,5
%A _N. J. A. Sloane_, Nov 01 2000
%E Corrected by T. D. Noe, Apr 19 2007 [The errors were caused by the faulty Maple command "mroot"]
|
