A059669 Primes p such that x^48 = 2 has no solution mod p, but x^24 = 2 has a solution mod p.

1217, 1553, 1777, 2833, 4049, 4481, 5297, 6449, 6689, 7121, 8081, 8609, 9137, 9281, 9649, 10337, 10433, 11329, 11633, 12241, 13121, 14321, 14753, 15569, 16433, 16673, 18257, 19793, 23057, 25169, 25889, 26177, 26561, 26993, 27281, 28001, 29153, 29201

Offset

1,1

Links

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

Mathematica

Select[Prime[Range[PrimePi[30000]]], ! MemberQ[PowerMod[Range[#], 48, #], Mod[2, #]] && MemberQ[PowerMod[Range[#], 24, #], Mod[2, #]] &] (* Vincenzo Librandi, Sep 22 2013 *)

Prog

(Magma) [p: p in PrimesUpTo(30000) | not exists{x: x in ResidueClassRing(p) | x^48 eq 2} and exists{x: x in ResidueClassRing(p) | x^24 eq 2}]; // Vincenzo Librandi, Sep 21 2012

Crossrefs

Cf. A000040, A049556, A059362, A049580.

Sequence in context: A321062 A059287 A225759 * A032628 A175964 A300408

Adjacent sequences: A059666 A059667 A059668 * A059670 A059671 A059672

Keyword

nonn,easy

Author

Klaus Brockhaus, Feb 04 2001

Extensions

a(37)-a(38) from Vincenzo Librandi, Sep 21 2012

Status

approved