A216769 Primes p such that x^48 = -2 has no solution mod p.

5, 7, 13, 17, 19, 23, 29, 31, 37, 41, 47, 53, 61, 67, 71, 73, 79, 89, 97, 101, 103, 109, 113, 127, 137, 139, 149, 151, 157, 163, 167, 173, 181, 191, 193, 197, 199, 211, 223, 229, 233, 239, 241, 263, 269, 271, 277, 293, 311, 313, 317, 331, 337, 349, 353, 359

Offset

1,1

Comments

Complement of A051093 relative to A000040.

Starts to differ from A216743 at index n=121 (presence/absence of 881). - R. J. Mathar, Jul 20 2023

Links

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

Mathematica

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

Prog

(Magma) [p: p in PrimesUpTo(600) | not exists{x: x in ResidueClassRing(p) | x^48 eq -2}];

Crossrefs

Cf. A000040, A051093, A216743.

Sequence in context: A260405 A108719 A162707 * A216743 A216749 A216737

Adjacent sequences: A216766 A216767 A216768 * A216770 A216771 A216772

Keyword

nonn,easy

Author

Vincenzo Librandi, Sep 16 2012

Status

approved