A216746 Primes p such that x^30 = -2 has no solution mod p.

5, 7, 11, 13, 19, 23, 29, 31, 37, 41, 47, 53, 61, 67, 71, 73, 79, 97, 101, 103, 109, 127, 131, 139, 149, 151, 157, 163, 167, 173, 181, 191, 193, 197, 199, 211, 223, 229, 239, 241, 263, 269, 271, 277, 281, 293, 311, 313, 317, 331, 337, 349, 359, 367, 373, 379, 383

Offset

1,1

Comments

Complement of A051084 relative to A000040.

Links

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

Mathematica

ok[p_]:=Reduce[Mod[x^30 + 2, p] == 0, x, Integers] == False; Select[Prime[Range[100]], ok]

Prog

(Magma) [ p: p in PrimesUpTo(400) | not exists{x : x in ResidueClassRing(p) | x^30 eq -2} ]; // Vincenzo Librandi, Sep 16 2012

Crossrefs

Cf. A000040, A051084.

Sequence in context: A298867 A039681 A375170 * A084441 A180950 A112397

Adjacent sequences: A216743 A216744 A216745 * A216747 A216748 A216749

Keyword

nonn,easy

Author

Vincenzo Librandi, Sep 16 2012

Status

approved