A059263 Primes p such that x^10 = 2 has no solution mod p.

3, 5, 11, 13, 19, 29, 31, 37, 41, 43, 53, 59, 61, 67, 71, 83, 101, 107, 109, 131, 139, 149, 157, 163, 173, 179, 181, 191, 197, 211, 227, 229, 251, 269, 271, 277, 281, 283, 293, 307, 311, 317, 331, 347, 349, 373, 379, 389, 397, 401, 419, 421, 443, 461, 467, 491

Offset

1,1

Comments

Complement of A049542 relative to A000040.

Links

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

Mathematica

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

Prog

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

Crossrefs

Cf. A000040, A049542.

Sequence in context: A020609 A151917 A059639 * A066652 A165354 A059638

Adjacent sequences: A059260 A059261 A059262 * A059264 A059265 A059266

Keyword

nonn,easy

Author

Klaus Brockhaus, Jan 23 2001

Status

approved