A040995 Primes p such that x^6 = 3 has no solution mod p.

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

Offset

1,1

Comments

Complement of A040994 relative to A000040. - Vincenzo Librandi, Sep 19 2012

Links

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

Mathematica

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

Prog

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

Crossrefs

Sequence in context: A177017 A136089 A337811 * A091301 A040125 A106067

Adjacent sequences: A040992 A040993 A040994 * A040996 A040997 A040998

Keyword

nonn,easy

Author

N. J. A. Sloane

Status

approved