A049570 Primes p such that x^38 = 2 has a solution mod p.

2, 7, 17, 23, 31, 41, 47, 71, 73, 79, 89, 97, 103, 113, 127, 137, 151, 167, 193, 199, 223, 233, 239, 241, 257, 263, 271, 281, 311, 313, 337, 353, 359, 367, 383, 401, 409, 431, 433, 439, 449, 463, 479, 487, 503, 521, 569, 577, 593, 599, 601, 607, 617, 631, 641

Offset

1,1

Comments

Complement of A059350 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^38 - 2, p] == 0, x, Integers] =!= False; Select[Prime[Range[200]], ok] (* Vincenzo Librandi, Sep 14 2012 *)

Prog

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

Crossrefs

Cf. A000040, A059350.

Sequence in context: A141131 A049594 A049590 * A049566 A049558 A049546

Adjacent sequences: A049567 A049568 A049569 * A049571 A049572 A049573

Keyword

nonn,easy

Author

N. J. A. Sloane

Status

approved