A040140 Primes p such that x^4 = 17 has no solution mod p.

3, 5, 7, 11, 13, 23, 29, 31, 37, 41, 53, 61, 71, 73, 79, 89, 97, 101, 107, 109, 113, 131, 137, 139, 163, 167, 173, 181, 193, 197, 199, 211, 227, 233, 241, 269, 277, 281, 283, 311, 313, 317, 337, 347, 349, 367, 373

Offset

1,1

Comments

Complement of A040138 relative to A000040. - Vincenzo Librandi, Sep 18 2012

Links

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

Mathematica

ok[p_]:= Reduce[Mod[x^4 - 17, p] == 0, x, Integers] == False; Select[Prime[Range[100]], ok] (* Vincenzo Librandi, Sep 18 2012  *)

Prog

(Magma) [p: p in PrimesUpTo(400) | forall{x: x in ResidueClassRing(p) | x^4 ne 17}]; // Bruno Berselli, Sep 12 2012

Crossrefs

Sequence in context: A291175 A174350 A240476 * A066651 A182583 A181741

Adjacent sequences: A040137 A040138 A040139 * A040141 A040142 A040143

Keyword

nonn,easy

Author

N. J. A. Sloane.

Status

approved