A040106 Primes p such that x^4 = 5 has no solution mod p.

3, 7, 13, 17, 23, 29, 37, 41, 43, 47, 53, 61, 67, 73, 83, 89, 97, 103, 107, 113, 127, 137, 157, 163, 167, 173, 193, 197, 223, 227, 229, 233, 241, 257, 263, 277, 281, 283, 293, 307, 313, 317, 337, 347, 349, 353, 367

Offset

1,1

Comments

Complement of A040105 relative to A000040. - Vincenzo Librandi, Sep 17 2012

Links

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

Mathematica

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

Prog

(Magma) [p: p in PrimesUpTo(500) | not exists{x : x in ResidueClassRing(p) | x^4 eq 5} ]; // Vincenzo Librandi, Sep 17 2012

Crossrefs

Sequence in context: A063239 A063226 A288709 * A378429 A191028 A034914

Adjacent sequences: A040103 A040104 A040105 * A040107 A040108 A040109

Keyword

nonn,easy

Author

N. J. A. Sloane.

Status

approved