A049583 Primes p such that x^51 = 2 has a solution mod p.

2, 3, 5, 11, 17, 23, 29, 31, 41, 43, 47, 53, 59, 71, 83, 89, 101, 107, 109, 113, 127, 131, 149, 157, 167, 173, 179, 191, 197, 223, 227, 229, 233, 251, 257, 263, 269, 277, 281, 283, 293, 311, 317, 347, 353, 359, 383, 389, 397, 401, 419, 431, 433, 439, 449, 457

Offset

1,1

Comments

Complement of A059640 relative to A000040. - Vincenzo Librandi, Sep 14 2012

Links

R. J. Mathar, Table of n, a(n) for n = 1..1000

Index entries for related sequences

Mathematica

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

Prog

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

Crossrefs

Cf. A000040, A059640.

Sequence in context: A040095 A040028 A049589 * A049596 A049571 A263090

Adjacent sequences: A049580 A049581 A049582 * A049584 A049585 A049586

Keyword

nonn,easy

Author

N. J. A. Sloane

Status

approved