The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A057763 Least nonnegative square root of 5 mod n for n in A057762. 2

%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"]

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified August 7 14:45 EDT 2024. Contains 375012 sequences. (Running on oeis4.)