A040999 Primes p such that x^6 = 5 has no solution mod p.

3, 7, 13, 17, 19, 23, 31, 37, 43, 47, 53, 61, 67, 73, 79, 83, 97, 103, 107, 109, 113, 127, 137, 139, 151, 157, 163, 167, 173, 193, 197, 223, 227, 229, 233, 257, 263, 271, 277, 283, 293, 307, 313, 317, 331, 337, 347, 349, 353, 367, 373, 383, 397

Offset

1,1

Comments

Complement of A040998 relative to A000040. - Vincenzo Librandi, Sep 19 2012

Links

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

Mathematica

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

Prog

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

Crossrefs

Sequence in context: A363636 A100807 A290400 * A172240 A129901 A067073

Adjacent sequences: A040996 A040997 A040998 * A041000 A041001 A041002

Keyword

nonn,easy

Author

N. J. A. Sloane

Status

approved