OFFSET
1,3
COMMENTS
That is, numbers 0 <= n < 61 such that n is a square modulo 61.
MATHEMATICA
Union[Mod[Range[0, 60]^2, 61]] (* T. D. Noe, Apr 21 2011 *)
Union[PowerMod[Range[0, 600], 2, 61]] (* Harvey P. Dale, May 22 2014 *)
PROG
(Sage) [quadratic_residues(61)] # Zerinvary Lajos, May 24 2009
(PARI) for(n=0, 60, if(issquare(Mod(n, 61)), print1(n", "))) \\ Franklin T. Adams-Watters, Apr 21 2011
CROSSREFS
KEYWORD
nonn,fini,full
AUTHOR
STATUS
approved