A059351 Primes p such that x^39 = 2 has no solution mod p.

7, 13, 19, 37, 53, 61, 67, 73, 79, 97, 103, 131, 139, 151, 157, 163, 181, 193, 199, 211, 241, 271, 313, 331, 337, 349, 367, 373, 379, 409, 421, 443, 463, 487, 521, 523, 541, 547, 571, 577, 599, 607, 613, 619, 631, 661, 673, 677, 709, 751, 757, 769, 787, 823

Offset

1,1

Comments

Complement of A049571 relative to A000040.

Links

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

Mathematica

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

Prog

(Magma) [p: p in PrimesUpTo(850) | forall{x: x in ResidueClassRing(p) | x^39 ne 2 }]; // Vincenzo Librandi, Sep 20 2012

Crossrefs

Cf. A000040, A049571.

Sequence in context: A078863 A263091 A320533 * A320532 A059262 A059640

Adjacent sequences: A059348 A059349 A059350 * A059352 A059353 A059354

Keyword

nonn,easy

Author

Klaus Brockhaus, Jan 27 2001

Status

approved