A216887 Primes p such that x^67 = 2 has a solution mod p.

2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113, 127, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 199, 211, 223, 227, 229, 233, 239, 241, 251, 257, 263, 271

Offset

1,1

Comments

Complement of A059330 relative to A000040.

Links

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

Mathematica

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

Prog

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

Crossrefs

Cf. A000040, A059330.

Sequence in context: A352190 A324050 A064555 * A095320 A238853 A077359

Adjacent sequences: A216884 A216885 A216886 * A216888 A216889 A216890

Keyword

nonn,easy

Author

Vincenzo Librandi, Sep 20 2012

Status

approved