A216772 Primes p such that x^54 = -2 has no solution mod p.

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

Offset

1,1

Comments

Complement of A051096 relative to A000040.

Links

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

Mathematica

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

Prog

(Magma) [p: p in PrimesUpTo(600) | not exists{x: x in ResidueClassRing(p) | x^54 eq -2}];

Crossrefs

Cf. A000040, A051096.

Sequence in context: A109269 A216752 A216740 * A216734 A114275 A350429

Adjacent sequences: A216769 A216770 A216771 * A216773 A216774 A216775

Keyword

nonn,easy

Author

Vincenzo Librandi, Sep 16 2012

Status

approved