A040121 Primes p such that x^4 = 10 has no solution mod p.

7, 11, 13, 17, 19, 23, 29, 47, 59, 61, 73, 89, 97, 101, 103, 109, 113, 127, 131, 137, 139, 149, 157, 167, 179, 181, 193, 197, 211, 223, 229, 233, 251, 257, 263, 269, 281, 293, 313, 331, 337, 349, 353, 367, 373

Offset

1,1

Comments

Complement of A040119 relative to A000040. - Vincenzo Librandi, Sep 17 2012

Links

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

Mathematica

ok[p_]:= Reduce[Mod[x^4 - 10, p] == 0, x, Integers] == False; Select[Prime[Range[100]], ok] (* Vincenzo Librandi, Sep 17 2012  *)

Prog

(Magma) [p: p in PrimesUpTo(500) | not exists{x : x in ResidueClassRing(p) | x^4 eq 10} ]; // Vincenzo Librandi, Sep 17 2012
(PARI) is(p)=!ispower(Mod(10, p), 4) && isprime(p)
select(is, primes(100)) \\ Charles R Greathouse IV, Aug 10 2022

Crossrefs

Sequence in context: A067831 A086998 A028416 * A156114 A304690 A091554

Adjacent sequences: A040118 A040119 A040120 * A040122 A040123 A040124

Keyword

nonn,easy

Author

N. J. A. Sloane.

Status

approved