A191027 Primes that are nonzero squares mod 37.

3, 7, 11, 41, 47, 53, 67, 71, 73, 83, 101, 107, 127, 137, 139, 149, 151, 157, 173, 181, 197, 211, 223, 229, 233, 263, 269, 271, 293, 307, 317, 337, 349, 359, 367, 373, 379, 397, 419, 433, 443, 491, 509, 521, 571, 593, 599, 601, 613, 617, 619, 641, 659, 673

Offset

1,1

Comments

Primes p such that the Legendre symbol (p/37) = +1. - N. J. A. Sloane, May 25 2013

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Mathematica

Select[Prime[Range[200]], JacobiSymbol[#, 37]==1&]

Prog

(Magma) [p: p in PrimesUpTo(643) | JacobiSymbol(p, 37) eq 1]; // Vincenzo Librandi, Sep 10 2012

Crossrefs

Except for excluding 37, identical to A038913.

Sequence in context: A141178 A362005 A106966 * A139599 A141161 A333421

Adjacent sequences: A191024 A191025 A191026 * A191028 A191029 A191030

Keyword

nonn,easy

Author

T. D. Noe, May 24 2011

Status

approved