A296928 - OEIS

%I #8 Dec 27 2017 01:32:23

%S 7,11,13,17,19,29,31,47,53,59,61,67,71,83,101,113,151,157,163,167,173,

%T 181,223,227,233,239,257,269,271,277,307,313,331,337,359,373,379,383,

%U 389,431,433,463,479,487,499,521,569,587,601,619,631

%N Primes p such that Legendre(-13,p) = 0 or 1.

%C Primes == 1, 7, 9, 11, 13, 15, 17, 19, 25, 29, 31, 47, or 49 (mod 52). - _Robert Israel_, Dec 27 2017

%H Robert Israel, <a href="/A296928/b296928.txt">Table of n, a(n) for n = 1..10003</a>

%p Load the Maple program HH given in A296920. Then run HH(-13, 200); This produces A296926, A296927, A296928, A105885.

%p select(isprime, [seq(seq(52*i+j, j=[1, 7, 9, 11, 13, 15, 17, 19, 25, 29, 31, 47, 49]),i=0..50)]); # _Robert Israel_, Dec 27 2017

%K nonn

%O 1,1

%A _N. J. A. Sloane_, Dec 26 2017