A051078 Primes p such that x^18 = -2 has a solution mod p.

2, 3, 11, 17, 41, 43, 59, 83, 89, 107, 113, 131, 137, 179, 227, 233, 251, 257, 281, 283, 347, 353, 401, 419, 443, 449, 457, 467, 491, 499, 521, 563, 569, 587, 593, 601, 617, 641, 643, 659, 683, 691, 761, 809, 827, 857, 881, 929, 947, 953, 971, 977, 1019, 1049, 1051, 1091, 1097, 1163, 1187, 1193, 1217, 1259, 1283, 1289, 1307, 1361, 1409

Offset

1,1

Comments

Differs from A051096 first at the 640th entry, at p=17659, next at p=23059. - R. J. Mathar, Oct 14 2008

Complement of A216740 relative to A000040. - Vincenzo Librandi, Sep 16 2012

Links

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

Mathematica

ok[p_]:= Reduce[Mod[x^18 + 2, p] == 0, x, Integers] =!= False; Select[Prime[Range[400]], ok] (* Vincenzo Librandi, Sep 15 2012 *)

Prog

(PARI) /* see A051071 */
(Magma) [p: p in PrimesUpTo(1410) | exists(t){x : x in ResidueClassRing(p) | x^18 eq - 2}]; // Vincenzo Librandi Sep 15 2012

Crossrefs

Sequence in context: A147655 A051072 A051096 * A051090 A263933 A061400

Adjacent sequences: A051075 A051076 A051077 * A051079 A051080 A051081

Keyword

nonn,easy

Author

N. J. A. Sloane

Extensions

More terms from Joerg Arndt, Jul 27 2011

Status

approved