A040127 - OEIS

A040127

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

5, 7, 11, 19, 29, 31, 37, 41, 47, 59, 67, 71, 73, 83, 89, 97, 101, 109, 113, 137, 149, 151, 157, 163, 167, 173, 193, 197, 223, 227, 229, 233, 239, 241, 257, 269, 271, 277, 281, 293, 307, 313, 317, 331, 349, 353

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

OFFSET

1,1

COMMENTS

Complement of A040126 relative to A000040. - Vincenzo Librandi, Sep 18 2012

LINKS

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

MATHEMATICA

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

PROG

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

CROSSREFS

Sequence in context: A213981 A273048 A240621 * A341215 A136086 A182121

Adjacent sequences: A040124 A040125 A040126 * A040128 A040129 A040130

KEYWORD

nonn,easy

AUTHOR

N. J. A. Sloane.

STATUS

approved