A115586 Prime moduli p for which 2 is neither a quadratic residue nor a primitive root.

43, 109, 157, 229, 251, 277, 283, 307, 331, 397, 499, 571, 643, 683, 691, 733, 739, 811, 971, 997, 1013, 1021, 1051, 1069, 1093, 1163, 1181, 1429, 1459, 1579, 1597, 1613, 1627, 1699, 1709, 1723, 1789, 1811, 1933, 2003, 2011, 2179, 2203, 2251

Offset

1,1

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Maple

select(p -> isprime(p) and numtheory:-order(2, p) <> p-1, [seq(seq(8*i+j, j=[3, 5]), i=1..1000)]); # Robert Israel, Apr 02 2018

Mathematica

Select[Prime[Range[400]], MultiplicativeOrder[2, #] != # - 1 && JacobiSymbol[2, #] == -1 &] (* Alonso del Arte, Jun 08 2014 *)

Prog

(PARI) is(n)=n>2&&isprime(n)&&kronecker(2, n)!=1&&znprimroot(n)!=2 \\ Lear Young, Mar 26 2014

Crossrefs

Cf. A001122, A001132, A001133, A003629.

Intersection of A216838 and A003629.

Sequence in context: A059914 A141857 A106923 * A294717 A001133 A292578

Adjacent sequences: A115583 A115584 A115585 * A115587 A115588 A115589

Keyword

nonn

Author

Don Reble, Mar 11 2006

Status

approved