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
KEYWORD
nonn
AUTHOR
Don Reble, Mar 11 2006
STATUS
approved