|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|