OFFSET
1,1
COMMENTS
Primes which are 1, 5, 7, 9, 11, 17, 23, 25, or 35 mod 38. - Charles R Greathouse IV, Mar 18 2018
LINKS
FORMULA
a(n) ~ 2n log n. - Charles R Greathouse IV, Mar 18 2018
MATHEMATICA
Select[Prime[Range[200]], JacobiSymbol[#, 19]==1&]
PROG
(Magma) [p: p in PrimesUpTo(613) | IsOne(JacobiSymbol(p, 19))]; // Bruno Berselli, Sep 10 2012
(PARI) list(lim)=my(v=List()); forprime(p=5, lim, if(kronecker(-19, p)==1, listput(v, p))); Vec(v) \\ Charles R Greathouse IV, Mar 18 2018
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
T. D. Noe, May 24 2011
EXTENSIONS
Definition corrected by N. J. A. Sloane, Dec 25 2017
STATUS
approved