A038948 Primes p such that 66 is not a square mod p.

7, 23, 29, 37, 47, 67, 71, 73, 79, 83, 89, 101, 107, 113, 127, 131, 137, 149, 151, 157, 163, 173, 181, 191, 193, 197, 227, 229, 241, 257, 271, 293, 311, 331, 337, 347, 353, 379, 383, 397, 401, 409, 421, 439, 449

Offset

1,1

Links

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

Mathematica

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

Prog

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

Crossrefs

Sequence in context: A109992 A070330 A095314 * A019389 A056723 A080802

Adjacent sequences: A038945 A038946 A038947 * A038949 A038950 A038951

Keyword

nonn

Author

N. J. A. Sloane.

Extensions

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

Status

approved