A216775 Primes p such that x^60 = -2 has no solution mod p.

5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 47, 53, 61, 67, 71, 73, 79, 97, 101, 103, 109, 127, 131, 137, 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

Offset

1,1

Comments

Complement of A051099 relative to A000040.

Links

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

Mathematica

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

Prog

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

Crossrefs

Cf. A000040, A051099.

Sequence in context: A020624 A020621 A020630 * A020586 A172039 A020602

Adjacent sequences: A216772 A216773 A216774 * A216776 A216777 A216778

Keyword

nonn,easy

Author

Vincenzo Librandi, Sep 16 2012

Status

approved