A038930 Primes p such that 51 is not a square mod p.

2, 11, 19, 23, 37, 43, 53, 61, 67, 71, 73, 89, 97, 101, 103, 107, 109, 127, 131, 137, 149, 151, 167, 181, 193, 223, 227, 241, 257, 271, 277, 281, 293, 307, 311, 313, 331, 337, 347, 353, 389, 397, 419, 431, 461

Offset

1,1

Links

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

Mathematica

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

Prog

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

Crossrefs

Sequence in context: A163058 A161504 A079062 * A019375 A078784 A117196

Adjacent sequences: A038927 A038928 A038929 * A038931 A038932 A038933

Keyword

nonn

Author

N. J. A. Sloane.

Extensions

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

Status

approved