This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A223036 #6 Mar 13 2013 11:19:56
%S A223036 3,5,7,11,13,17,19,23,29,31,37,47,53,59,61,67,71,73,79,83,89,97,101,
%T A223036 107,113,127,131,137,139,149,163,167,173,179,181,193,197,199,211,223,
%U A223036 227,233,239,241,257,263,269,281,293,317,347,349,353,359,373,379,383
%N A223036 Primes p whose smallest positive quadratic nonresidue is a primitive root of p.
%C A223036 See the complementary sequence A222717 for comments.
%H A223036 <a href="/index/Pri#primes_root">Index entries for primes by primitive root</a>
%e A223036 The smallest positive quadratic nonresidue of 3 is 2, and 2 is a primitive root of 3, so 3 is a member.
%t A223036 nn = 100; NR = (Table[p = Prime[n]; First[ Select[ Range[p], JacobiSymbol[#, p] != 1 &]], {n, nn}]); Select[ Prime[ Range[nn]], MultiplicativeOrder[ NR[[PrimePi[#]]], #] == # - 1 &]
%Y A223036 Cf. A001918, A053760, A222717.
%K A223036 nonn
%O A223036 1,1
%A A223036 _Jonathan Sondow_, Mar 13 2013