A059265 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

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

(list; graph; refs; listen; history; text; internal format)

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