A296935 Rational primes that decompose in the field Q(sqrt(11)).
5, 7, 19, 37, 43, 53, 79, 83, 89, 97, 107, 113, 127, 131, 137, 139, 151, 157, 167, 181, 211, 227, 229, 239, 257, 263, 269, 271, 283, 307, 313, 317, 347, 353, 359, 389, 397, 401, 421, 431, 433, 439, 449, 479, 491, 503, 509, 521, 523, 547, 563, 571, 577, 607
Offset: 1
Links
Programs
-
Maple
Load the Maple program HH given in A296920. Then run HH(11, 200); This produces A296935, A296936, A038881, A038882.
-
Mathematica
Select[Prime[Range[120]], KroneckerSymbol[11, #] == 1 &] (* Amiram Eldar, Dec 24 2023 *)
-
PARI
list(lim)=my(v=List()); forprime(p=5,lim, if(kronecker(11,p)==1, listput(v,p))); Vec(v) \\ Charles R Greathouse IV, Mar 18 2018