A040975 Primes p such that x^5 = 15 has no solution mod p.

11, 31, 41, 61, 71, 101, 131, 151, 181, 191, 251, 271, 281, 331, 401, 421, 431, 461, 491, 521, 571, 601, 631, 641, 661, 691, 701, 751, 821, 881, 971, 991, 1021, 1051, 1061, 1171, 1181, 1231, 1291, 1301, 1321

Offset

1,1

Comments

Complement of A040974 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 - 15, 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 15} ]; // Vincenzo Librandi, Sep 18 2012

Crossrefs

Sequence in context: A327346 A030430 A059313 * A188384 A040172 A040160

Adjacent sequences: A040972 A040973 A040974 * A040976 A040977 A040978

Keyword

nonn,easy

Author

N. J. A. Sloane

Status

approved