A040158 Primes p such that x^4 = 23 has no solution mod p.

3, 5, 13, 17, 31, 37, 47, 53, 59, 61, 71, 73, 89, 97, 101, 109, 113, 127, 131, 137, 139, 149, 151, 157, 163, 167, 179, 181, 193, 211, 223, 229, 239, 241, 271, 281, 293, 307, 311, 313, 331, 337, 347, 353, 373, 389

Offset

1,1

Comments

Complement of A040154 relative to A000040. - Vincenzo Librandi, Sep 18 2012

Links

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

Mathematica

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

Prog

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

Crossrefs

Sequence in context: A060192 A065311 A206549 * A147490 A266234 A180008

Adjacent sequences: A040155 A040156 A040157 * A040159 A040160 A040161

Keyword

nonn,easy

Author

N. J. A. Sloane.

Status

approved