OFFSET
1,1
COMMENTS
Originally incorrectly named "primes which are squares (mod 38)", which is sequence A106863. - M. F. Hasler, Jan 15 2016
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Prime[Range[200]], JacobiSymbol[#, 38]==1&]
PROG
(Magma) [p: p in PrimesUpTo(661) | KroneckerSymbol(p, 38) eq 1]; // Vincenzo Librandi, Sep 11 2012
(PARI) is(p)=kronecker(p, 38)==1&&isprime(p) \\ M. F. Hasler, Jan 15 2016
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
T. D. Noe, May 24 2011
EXTENSIONS
Definition corrected (following an observation by David Broadhurst) by M. F. Hasler, Jan 15 2016
STATUS
approved