A059334 Primes p such that x^30 = 2 has no solution mod p.

3, 5, 7, 11, 13, 19, 29, 31, 37, 41, 43, 53, 59, 61, 67, 71, 73, 79, 83, 97, 101, 103, 107, 109, 131, 139, 149, 151, 157, 163, 173, 179, 181, 191, 193, 197, 199, 211, 227, 229, 241, 251, 269, 271, 277, 281, 283, 293, 307, 311, 313, 317, 331, 337, 347, 349, 367

Offset

1,1

Comments

Complement of A049562 relative to A000040.

Links

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

Mathematica

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

Prog

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

Crossrefs

A000040, A049562.

Sequence in context: A075323 A020575 A055072 * A130761 A154966 A072667

Adjacent sequences: A059331 A059332 A059333 * A059335 A059336 A059337

Keyword

nonn,easy

Author

Klaus Brockhaus, Jan 26 2001

Status

approved