A038952 Primes p such that 69 is not a square mod p.

2, 7, 19, 29, 37, 41, 43, 47, 59, 61, 67, 71, 79, 97, 101, 103, 109, 131, 157, 167, 173, 179, 181, 197, 199, 229, 233, 239, 241, 257, 269, 283, 311, 313, 317, 337, 347, 353, 367, 373, 379, 421, 433, 443, 449, 457

Offset

1,1

Links

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

Mathematica

Select[Prime@Range[120], JacobiSymbol[69, #] == - 1 &] (* Vincenzo Librandi, Sep 09 2012 *)

Prog

(PARI) select(n->!issquare(Mod(69, n)), primes(100)) \\ Charles R Greathouse IV, Sep 09 2012

Crossrefs

Sequence in context: A100408 A259370 A103034 * A144589 A179002 A232667

Adjacent sequences: A038949 A038950 A038951 * A038953 A038954 A038955

Keyword

nonn

Author

N. J. A. Sloane.

Extensions

Offset changed from 0 to 1 by Vincenzo Librandi, Sep 09 2012

Status

approved