A045316 Primes p such that x^8 = 2 has no solution mod p.
3, 5, 11, 13, 17, 19, 29, 37, 41, 43, 53, 59, 61, 67, 83, 97, 101, 107, 109, 113, 131, 137, 139, 149, 157, 163, 173, 179, 181, 193, 197, 211, 227, 229, 241, 251, 269, 277, 281, 283, 293, 307, 313, 317, 331, 347, 349, 353, 373, 379, 389
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Crossrefs
Programs
-
Magma
[p: p in PrimesUpTo(500) | not exists{x : x in ResidueClassRing(p) | x^8 eq 2} ]; // Vincenzo Librandi, Sep 19 2012
-
Mathematica
ok[p_]:= Reduce[Mod[x^8 - 2, p] == 0, x, Integers] == False; Select[Prime[Range[200]], ok] (* Vincenzo Librandi, Sep 19 2012 *)
-
PARI
select( {is_A045316(p)=Mod(2,p)^(p\gcd(8,p-1))!=1 && p>2}, primes(199)) \\ Append "&& isprime(p)" if that's not known. - M. F. Hasler, Jun 22 2024
Comments