login
A025026
Numbers whose least quadratic nonresidue (A020649) is 17.
10
1559, 2999, 3118, 5998, 6551, 8089, 8761, 13102, 13729, 14759, 16178, 16631, 17522, 18119, 19009, 21121, 21961, 23399, 24049, 27431, 27458, 27551, 28081, 29518, 31249, 33262, 33289, 33479, 35281, 35591, 36238, 36791, 38018, 42242, 43391, 43922, 43991
OFFSET
1,1
LINKS
Eric Weisstein's World of Mathematics, Quadratic Nonresidue.
MATHEMATICA
Select[Range[20000], Min @ Complement[Range[# - 1], Mod[Range[#/2]^2, #]] == 17 &] (* Amiram Eldar, Oct 31 2020 *)
PROG
(PARI) residue(n, m)=local(r); r=0; for(i=1, floor(m/2), if(i^2%m==n, r=1)); r
isA025026(n)={local(a); a=1; forprime(p=2, 13, a=a && residue(p, n)); a=a && !residue(17, n); a} \\ Michael B. Porter, Apr 30 2010
(PARI) is(n)=issquare(Mod(2, n)) && issquare(Mod(3, n)) && issquare(Mod(5, n)) && issquare(Mod(7, n)) && issquare(Mod(11, n)) && issquare(Mod(13, n)) && !issquare(Mod(17, n)) \\ Charles R Greathouse IV, Jan 24 2020
KEYWORD
nonn
STATUS
approved