A049551 Primes p such that x^19 = 2 has a solution mod p.

2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113, 127, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 193, 197, 199, 211, 223, 227, 233, 239, 241, 251, 257, 263, 269, 271, 277, 281

Offset

1,1

Comments

Complement of A059244 relative to A000040. - Vincenzo Librandi, Sep 13 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^19 - 2, p] == 0, x, Integers] =!= False; Select[Prime[Range[200]], ok] (* Vincenzo Librandi, Sep 13 2012 *)

Prog

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

Crossrefs

Cf. A000040, A059244.

Sequence in context: A238853 A077359 A057448 * A058853 A049569 A100725

Adjacent sequences: A049548 A049549 A049550 * A049552 A049553 A049554

Keyword

nonn,easy

Author

N. J. A. Sloane

Status

approved