The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A216736 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing all changes.

A216736

Primes p such that x^10 = -2 has no solution mod p.
(history; published version)

#6 by Bruno Berselli at Thu Sep 20 01:00:07 EDT 2012

STATUS

editing

approved

#5 by Bruno Berselli at Thu Sep 20 00:59:15 EDT 2012

COMMENTS

Complement of A051074 relative to A000040. - _Vincenzo Librandi_, Sep 15 2012

MATHEMATICA

ok[p_] := Reduce[Mod[x^10 + 2, p] == 0, x, Integers] == False; Select[Prime[Range[100]], ok]

STATUS

approved

editing

Discussion

Thu Sep 20

01:00

Bruno Berselli: Superfluous attribution ---

#4 by Joerg Arndt at Sat Sep 15 08:29:12 EDT 2012

STATUS

proposed

approved

#3 by Vincenzo Librandi at Sat Sep 15 05:21:04 EDT 2012

STATUS

editing

proposed

#2 by Vincenzo Librandi at Sat Sep 15 05:20:34 EDT 2012

NAME

allocated for Vincenzo LibrandiPrimes p such that x^10 = -2 has no solution mod p.

DATA

5, 7, 11, 13, 23, 29, 31, 37, 41, 47, 53, 61, 71, 79, 101, 103, 109, 127, 131, 149, 151, 157, 167, 173, 181, 191, 197, 199, 211, 223, 229, 239, 263, 269, 271, 277, 281, 293, 311, 317, 331, 349, 359, 367, 373, 383, 389, 397, 401, 421, 431, 439, 461, 463, 479, 487, 491

OFFSET

1,1

COMMENTS

Complement of A051074 relative to A000040. - Vincenzo Librandi, Sep 15 2012

LINKS

Vincenzo Librandi, <a href="/A216736/b216736.txt">Table of n, a(n) for n = 1..1000</a>

MATHEMATICA

ok[p_]:= Reduce[Mod[x^10 + 2, p] == 0, x, Integers] == False; Select[Prime[Range[100]], ok]

CROSSREFS

Cf. A000040, A051074.

KEYWORD

allocated

nonn,easy

AUTHOR

Vincenzo Librandi, Sep 15 2012

STATUS

approved

editing

#1 by Vincenzo Librandi at Sat Sep 15 04:15:31 EDT 2012

NAME

allocated for Vincenzo Librandi

KEYWORD

allocated

STATUS

approved