A059313 Primes p such that x^25 = 2 has no solution mod p.

11, 31, 41, 61, 71, 101, 131, 151, 181, 191, 211, 251, 271, 281, 311, 331, 401, 421, 461, 491, 521, 541, 601, 631, 661, 691, 701, 751, 761, 811, 821, 881, 941, 991, 1021, 1031, 1051, 1061, 1091, 1151, 1171, 1201, 1231, 1291, 1301, 1321, 1361, 1381, 1451

Offset

1,1

Comments

Complement of A049557 relative to A000040.

Links

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

Mathematica

ok[p_] := Reduce[Mod[x^25 - 2, p] == 0, x, Integers] == False; Select[Prime[Range[250]], ok ] (* Vincenzo Librandi, Sep 20 2012  *)

Prog

(Magma) [p: p in PrimesUpTo(1500) | forall{x: x in ResidueClassRing(p) | x^25 ne 2}]; // Vincenzo Librandi, Sep 20 2012

Crossrefs

Cf. A000040, A049557.

Sequence in context: A004615 A327346 A030430 * A040975 A188384 A040172

Adjacent sequences: A059310 A059311 A059312 * A059314 A059315 A059316

Keyword

nonn,easy

Author

Klaus Brockhaus, Jan 25 2001

Status

approved