OFFSET
1,1
COMMENTS
See the complementary sequence A222717 for comments.
EXAMPLE
The smallest positive quadratic nonresidue of 3 is 2, and 2 is a primitive root of 3, so 3 is a member.
MATHEMATICA
nn = 100; NR = (Table[p = Prime[n]; First[ Select[ Range[p], JacobiSymbol[#, p] != 1 &]], {n, nn}]); Select[ Prime[ Range[nn]], MultiplicativeOrder[ NR[[PrimePi[#]]], #] == # - 1 &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Jonathan Sondow, Mar 13 2013
STATUS
approved