A059362 Primes p such that x^24 = 2 has no solution mod p.
3, 5, 7, 11, 13, 17, 19, 29, 37, 41, 43, 53, 59, 61, 67, 73, 79, 83, 97, 101, 103, 107, 109, 113, 131, 137, 139, 149, 151, 157, 163, 173, 179, 181, 193, 197, 199, 211, 227, 229, 241, 251, 269, 271, 277, 281, 283, 293, 307, 313, 317, 331, 337, 347, 349, 353, 367
Offset: 1
Links
- Bruno Berselli, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[p: p in PrimesUpTo(400) | forall{x: x in ResidueClassRing(p) | x^24 ne 2}]; // Bruno Berselli, Sep 14 2012
-
Mathematica
Select[Prime[Range[PrimePi[400]]], ! MemberQ[PowerMod[Range[#], 24, #], Mod[2, #]] &] (* Bruno Berselli, Sep 14 2012 *) ok[p_] := Reduce[Mod[x^24 - 2, p] == 0, x, Integers] == False; Select[Prime[Range[80]], ok] (* Vincenzo Librandi, Sep 20 2012 *)
Comments