|
%I #20 Dec 24 2023 01:07:35
%S 5,7,19,37,43,53,79,83,89,97,107,113,127,131,137,139,151,157,167,181,
%T 211,227,229,239,257,263,269,271,283,307,313,317,347,353,359,389,397,
%U 401,421,431,433,439,449,479,491,503,509,521,523,547,563,571,577,607
%N Rational primes that decompose in the field Q(sqrt(11)).
%H Robert Price, <a href="/A296935/b296935.txt">Table of n, a(n) for n = 1..9973</a>
%H <a href="/index/Pri#primes_decomp_of">Index to sequences related to decomposition of primes in quadratic fields</a>.
%p Load the Maple program HH given in A296920. Then run HH(11, 200); This produces A296935, A296936, A038881, A038882.
%t Select[Prime[Range[120]], KroneckerSymbol[11, #] == 1 &] (* _Amiram Eldar_, Dec 24 2023 *)
%o (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
%Y Cf. A296936, A038881, A038882.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_, Dec 26 2017
|
