A191045 Primes that are squares mod 73.

2, 3, 19, 23, 37, 41, 61, 67, 71, 79, 89, 97, 109, 127, 137, 149, 173, 181, 211, 223, 227, 251, 257, 269, 283, 293, 311, 317, 347, 349, 353, 359, 367, 373, 383, 389, 397, 401, 419, 439, 457, 461, 463, 479, 487, 499, 503, 509, 523, 547, 557, 587, 593, 607

Offset

1,1

Links

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

Mathematica

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

Prog

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

Crossrefs

Sequence in context: A109418 A038957 A141750 * A215324 A215352 A215384

Adjacent sequences: A191042 A191043 A191044 * A191046 A191047 A191048

Keyword

nonn,easy

Author

T. D. Noe, May 25 2011

Status

approved