login
A025024
Numbers whose least quadratic nonresidue (A020649) is 11.
10
311, 622, 719, 839, 1009, 1129, 1201, 1438, 1511, 1678, 1801, 2018, 2258, 2399, 2402, 2521, 3022, 3049, 3191, 3359, 3361, 3602, 3889, 4079, 4201, 4561, 4679, 4729, 4798, 4871, 5039, 5042, 5209, 5351, 5591, 5879, 5881, 6098, 6359, 6382, 6718, 6719, 6722
OFFSET
1,1
LINKS
Eric Weisstein's World of Mathematics, Quadratic Nonresidue.
MATHEMATICA
Select[Range[7000], Min @ Complement[Range[# - 1], Mod[Range[#/2]^2, #]] == 11 &] (* 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
isA025024(n)=local(a); a=1; forprime(p=2, 7, a=a && residue(p, n)); a=a && !residue(11, 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)) \\ Charles R Greathouse IV, Jan 24 2020
KEYWORD
nonn
STATUS
approved