A038934 Primes p such that 55 is not a square mod p.

7, 29, 31, 37, 41, 43, 53, 59, 61, 71, 83, 97, 101, 107, 109, 113, 127, 137, 149, 157, 167, 179, 191, 199, 227, 241, 251, 257, 263, 281, 283, 307, 311, 313, 317, 331, 347, 349, 353, 379, 397, 409, 419, 433, 461

Offset

1,1

Links

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

Mathematica

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

Prog

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

Crossrefs

Sequence in context: A261845 A181942 A140447 * A262285 A041088 A107923

Adjacent sequences: A038931 A038932 A038933 * A038935 A038936 A038937

Keyword

nonn

Author

N. J. A. Sloane

Extensions

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

Status

approved