A059639 Primes p such that x^50 = 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, 151, 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

Offset

1,1

Comments

Complement of A049582 relative to A000040.

Links

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

Mathematica

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

Prog

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

Crossrefs

Cf. A000040, A049582.

Sequence in context: A023209 A020609 A151917 * A059263 A066652 A165354

Adjacent sequences: A059636 A059637 A059638 * A059640 A059641 A059642

Keyword

nonn,easy

Author

Klaus Brockhaus, Feb 02 2001

Status

approved