A296930 Inert rational primes in the field Q(sqrt(-17)).
5, 19, 29, 37, 41, 43, 47, 59, 61, 67, 73, 83, 97, 103, 109, 113, 127, 151, 173, 179, 181, 191, 193, 197, 223, 233, 239, 241, 251, 263, 269, 271, 277, 307, 313, 317, 331, 337, 359, 383, 397, 401, 443, 449, 463, 467, 491, 521, 523, 541, 563, 587, 599, 601, 617, 631
Offset: 1
Links
Programs
-
Maple
Load the Maple program HH given in A296920. Then run HH(-17, 200); This produces A296929, A296930, A296931.
-
Mathematica
Select[Prime[Range[115]], KroneckerSymbol[-17, #] == -1 &] (* Amiram Eldar, Nov 17 2023 *)
Comments