A025022 Numbers whose least quadratic nonresidue (A020649) is 5.

23, 46, 47, 73, 94, 97, 146, 167, 193, 194, 263, 313, 334, 337, 383, 386, 433, 457, 503, 526, 529, 577, 626, 647, 673, 674, 743, 766, 863, 866, 887, 914, 937, 983, 1006, 1033, 1058, 1081, 1103, 1153, 1154, 1223, 1294, 1297, 1346, 1367, 1486, 1487, 1583, 1607

Offset

1,1

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Eric Weisstein's World of Mathematics, Quadratic Nonresidue.

Mathematica

Select[Range[1600], Min @ Complement[Range[# - 1], Mod[Range[#/2]^2, #]] == 5 &] (* 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}
isA025022(n)=residue(2, n) && residue(3, n) && !residue(5, n) \\ Michael B. Porter, Apr 18 2010

Crossrefs

Cf. A020649, A025020, A025021, A025023, A025024, A025025, A025026, A025027, A025028, A025029.

Sequence in context: A040506 A081329 A323046 * A260750 A094694 A164010

Adjacent sequences: A025019 A025020 A025021 * A025023 A025024 A025025

Keyword

nonn

Author

David W. Wilson

Status

approved