A040981 Primes p such that x^5 = 18 has no solution mod p.

11, 31, 41, 61, 71, 101, 151, 181, 191, 211, 241, 251, 271, 281, 331, 401, 421, 461, 491, 541, 571, 641, 661, 691, 701, 751, 761, 811, 821, 881, 911, 941, 971, 1021, 1031, 1051, 1091, 1151, 1171, 1181, 1201, 1231, 1301, 1361, 1471

Offset

1,1

Comments

Complement of A040980 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^5 - 18, p] == 0, x, Integers] == False; Select[Prime[Range[300]], ok]  (* Vincenzo Librandi, Sep 19 2012 *)

Prog

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

Crossrefs

Sequence in context: A188384 A040172 A040160 * A181603 A040983 A040979

Adjacent sequences: A040978 A040979 A040980 * A040982 A040983 A040984

Keyword

nonn,easy

Author

N. J. A. Sloane.

Status

approved