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

Author

T. D. Noe, May 24 2011

Keywords

• nonn
• easy

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

Crossrefs

Except for excluding 37, identical to A038913.

Programs

Magma

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

Mathematica

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