A216883 - OEIS

A216883

Primes p such that x^31 = 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, 269, 271

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

COMMENTS

Complement of A059225 relative to A000040.

LINKS

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

MATHEMATICA

ok[p_] := Reduce[Mod[x^31 - 2, p] == 0, x, Integers] == True; Select[Prime[Range[150]], ok]

PROG

(Magma) [p: p in PrimesUpTo(400) | exists(t){x : x in ResidueClassRing(p) | x^31 eq 2}];

CROSSREFS