A059265 Primes p such that x^14 = 2 has no solution mod p.

3, 5, 11, 13, 19, 29, 37, 43, 53, 59, 61, 67, 71, 83, 101, 107, 109, 113, 127, 131, 139, 149, 157, 163, 173, 179, 181, 197, 211, 227, 229, 239, 251, 269, 277, 281, 283, 293, 307, 317, 331, 337, 347, 349, 373, 379, 389, 397, 419, 421, 443, 449, 461, 463, 467

Offset

1,1

Comments

Complement of A049546 relative to A000040.

Links

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

Mathematica

Select[ Prime@Range[2, 93], FreeQ[ Mod[x^14 /. x -> Range[ # ], # ], 2] &] (* Robert G. Wilson v, Dec 15 2005 *)
ok[p_] := Reduce[Mod[x^14 - 2, p] == 0, x, Integers] == False; Select[Prime[Range[100]], ok] (* Vincenzo Librandi, Sep 20 2012 *)

Prog

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

Crossrefs

Cf. A000040, A049546.

Sequence in context: A066652 A165354 A059638 * A059314 A059336 A059350

Adjacent sequences: A059262 A059263 A059264 * A059266 A059267 A059268

Keyword

nonn,easy

Author

Klaus Brockhaus, Jan 23 2001

Status

approved