A038946 Primes p such that 65 is not a square mod p.

3, 11, 17, 19, 23, 31, 41, 43, 53, 59, 71, 89, 103, 107, 109, 113, 127, 149, 151, 157, 173, 229, 233, 239, 241, 257, 263, 271, 277, 281, 283, 313, 331, 337, 347, 349, 359, 367, 373, 379, 401, 409, 421, 431, 433

Offset

1,1

Links

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

Mathematica

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

Prog

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

Crossrefs

Sequence in context: A351051 A154497 A322171 * A095280 A085317 A210311

Adjacent sequences: A038943 A038944 A038945 * A038947 A038948 A038949

Keyword

nonn

Author

N. J. A. Sloane.

Extensions

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

Status

approved