A040100 - OEIS

A040100

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

3, 5, 11, 13, 17, 19, 29, 37, 41, 43, 53, 59, 61, 67, 83, 97, 101, 107, 109, 131, 137, 139, 149, 157, 163, 173, 179, 181, 193, 197, 211, 227, 229, 241, 251, 269, 277, 283, 293, 307, 313, 317, 331, 347, 349, 373

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

OFFSET

1,1

COMMENTS

Complement of A040098 relative to A000040. - Vincenzo Librandi, Sep 17 2012

LINKS

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

MATHEMATICA

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

PROG

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

CROSSREFS

Sequence in context: A014662 A059349 A045316 * A076757 A178942 A045404

Adjacent sequences: A040097 A040098 A040099 * A040101 A040102 A040103

KEYWORD

nonn,easy

AUTHOR

N. J. A. Sloane.

STATUS

approved