A040125 Primes p such that x^4 = 12 has no solution mod p.

5, 7, 13, 17, 19, 29, 31, 41, 43, 53, 67, 73, 79, 89, 97, 101, 103, 109, 113, 127, 137, 139, 149, 151, 163, 173, 181, 197, 199, 211, 223, 229, 233, 241, 257, 269, 271, 277, 281, 283, 293, 307, 317, 331, 337, 353

Offset

1,1

Comments

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

Links

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

Mathematica

Select[Prime[Range[PrimePi[400]]], ! MemberQ[PowerMod[Range[#], 4, #], Mod[12, #]] &] (* T. D. Noe, Sep 13 2012 *)
ok[p_]:= Reduce[Mod[x^4 - 12, p] == 0, x, Integers] == False; Select[Prime[Range[100]], ok] (* Vincenzo Librandi, Sep 17 2012  *)

Prog

(Magma) [p: p in PrimesUpTo(400) | forall{x: x in ResidueClassRing(p) | x^4 ne 12}]; // Bruno Berselli, Sep 12 2012

Crossrefs

Sequence in context: A337811 A040995 A091301 * A106067 A287614 A320866

Adjacent sequences: A040122 A040123 A040124 * A040126 A040127 A040128

Keyword

nonn,easy

Author

N. J. A. Sloane.

Status

approved