A059311 Primes p such that x^22 = 2 has no solution mod p.

3, 5, 11, 13, 19, 23, 29, 37, 43, 53, 59, 61, 67, 83, 89, 101, 107, 109, 131, 139, 149, 157, 163, 173, 179, 181, 197, 199, 211, 227, 229, 251, 269, 277, 283, 293, 307, 317, 331, 347, 349, 353, 373, 379, 389, 397, 419, 421, 443, 461, 463, 467, 491, 499, 509

Offset

1,1

Comments

Complement of A049554 relative to A000040.

Links

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

Mathematica

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

Prog

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

Crossrefs

Cf. A000040, A049554.

Sequence in context: A166089 A136208 A045405 * A023209 A020609 A151917

Adjacent sequences: A059308 A059309 A059310 * A059312 A059313 A059314

Keyword

nonn,easy

Author

Klaus Brockhaus, Jan 25 2001

Status

approved