A040178 Primes p such that x^5 = 10 has no solution mod p.

31, 41, 61, 71, 131, 151, 181, 191, 211, 241, 271, 311, 331, 401, 421, 431, 461, 491, 541, 571, 601, 631, 661, 691, 701, 751, 761, 811, 821, 881, 911, 941, 971, 991, 1021, 1051, 1091, 1151, 1171, 1181, 1201

Offset

1,1

Comments

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

Prog

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

Crossrefs

Cf. A000040, A040177.

Sequence in context: A040969 A348558 A088555 * A089719 A340444 A109550

Adjacent sequences: A040175 A040176 A040177 * A040179 A040180 A040181

Keyword

nonn,easy

Author

N. J. A. Sloane

Status

approved