# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a296931 Showing 1-1 of 1 %I A296931 #11 Dec 26 2017 19:34:02 %S A296931 2,3,7,11,13,17,23,31,53,71,79,89,101,107,131,137,139,149,157,163,167, %T A296931 199,211,227,229,257,281,283,293,311,347,349,353,367,373,379,389,409, %U A296931 419,421,431,433,439,457,461,479,487,499,503,509,547,557 %N A296931 Primes p such that Legendre(-17,p) = 0 or 1. %C A296931 Primes p such that p == 1, 2, 3, 7, 9, 11, 13, 17, 21, 23, 25, 27, 31, 33, 39, 49, 53, or 63 (mod 68). - _Robert Israel_, Dec 26 2017 %H A296931 Robert Israel, Table of n, a(n) for n = 1..10000 %p A296931 Load the Maple program HH given in A296920. Then run HH(-17, 200); This produces A296929, A296930, A296931. %p A296931 Alternative: %p A296931 select(p-> isprime(p) and numtheory:-legendre(-17,p)<>-1, [2,seq(i,i=3..1000)]); # _Robert Israel_, Dec 26 2017 %K A296931 nonn %O A296931 1,1 %A A296931 _N. J. A. Sloane_, Dec 26 2017 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE