A059640 Primes p such that x^51 = 2 has no solution mod p.

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

Offset

1,1

Comments

Complement of A049583 relative to A000040.

Links

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

Mathematica

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

Prog

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

Crossrefs

Cf. A000040, A049583.

Sequence in context: A059351 A320532 A059262 * A059643 A040034 A176229

Adjacent sequences: A059637 A059638 A059639 * A059641 A059642 A059643

Keyword

nonn,easy

Author

Klaus Brockhaus, Feb 02 2001

Status

approved