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 A115586 #12 Apr 02 2018 21:03:46 %S A115586 43,109,157,229,251,277,283,307,331,397,499,571,643,683,691,733,739, %T A115586 811,971,997,1013,1021,1051,1069,1093,1163,1181,1429,1459,1579,1597, %U A115586 1613,1627,1699,1709,1723,1789,1811,1933,2003,2011,2179,2203,2251 %N A115586 Prime moduli p for which 2 is neither a quadratic residue nor a primitive root. %H A115586 Robert Israel, <a href="/A115586/b115586.txt">Table of n, a(n) for n = 1..10000</a> %p A115586 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 %t A115586 Select[Prime[Range[400]], MultiplicativeOrder[2, #] != # - 1 && JacobiSymbol[2, #] == -1 &] (* _Alonso del Arte_, Jun 08 2014 *) %o A115586 (PARI) is(n)=n>2&&isprime(n)&&kronecker(2,n)!=1&&znprimroot(n)!=2 \\ _Lear Young_, Mar 26 2014 %Y A115586 Cf. A001122, A001132, A001133, A003629. %Y A115586 Intersection of A216838 and A003629. %K A115586 nonn %O A115586 1,1 %A A115586 _Don Reble_, Mar 11 2006