A059308 Primes p such that x^15 = 2 has no solution mod p.

7, 11, 13, 19, 31, 37, 41, 61, 67, 71, 73, 79, 97, 101, 103, 131, 139, 151, 163, 181, 191, 193, 199, 211, 241, 271, 281, 311, 313, 331, 337, 349, 367, 373, 379, 401, 409, 421, 461, 463, 487, 491, 521, 523, 541, 547, 571, 577, 601, 607, 613, 619, 631, 661, 673

Offset

1,1

Comments

Complement of A049547 relative to A000040.

Links

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

Mathematica

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

Prog

(Magma) [p: p in PrimesUpTo(700) | not exists{x: x in ResidueClassRing(p) | x^15 eq 2}]; // Vincenzo Librandi, Sep 20 2012

Crossrefs

Cf. A000040, A049547.

Sequence in context: A227921 A176620 A059637 * A075521 A084444 A081091

Adjacent sequences: A059305 A059306 A059307 * A059309 A059310 A059311

Keyword

nonn,easy

Author

Klaus Brockhaus, Jan 25 2001

Status

approved