A040129 Primes p such that x^4 = 14 has no solution mod p.

3, 5, 17, 19, 23, 29, 37, 41, 53, 59, 61, 71, 73, 79, 83, 89, 97, 101, 109, 127, 131, 139, 149, 151, 191, 193, 197, 227, 233, 239, 241, 251, 257, 263, 277, 281, 283, 293, 307, 313, 317, 337, 353, 359, 373, 389, 409

Offset

1,1

Comments

Complement of A040128 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 - 14, 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 14} ]; // Vincenzo Librandi, Sep 18 2012

Crossrefs

Sequence in context: A360802 A365475 A191051 * A045415 A045416 A038891

Adjacent sequences: A040126 A040127 A040128 * A040130 A040131 A040132

Keyword

nonn,easy

Author

N. J. A. Sloane.

Status

approved