A059635 Primes p such that x^56 = 2 has no solution mod p, but x^28 = 2 has a solution mod p.

353, 577, 593, 1033, 1049, 1097, 1153, 1193, 1201, 1481, 1601, 1753, 1889, 2273, 2281, 2393, 2473, 2857, 3049, 3089, 3121, 3217, 3313, 3673, 3761, 3833, 4001, 4153, 4217, 4289, 4457, 4657, 4801, 4937, 5113, 5233, 5393, 5569, 6121, 6521, 6569, 6761

Offset

1,1

Links

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

Mathematica

Select[Prime[Range[PrimePi[10000]]], !MemberQ[PowerMod[Range[#], 56, #], Mod[2, #]] && MemberQ[PowerMod[Range[#], 28, #], Mod[2, #]]&] (* Vincenzo Librandi, Sep 21 2013 *)

Prog

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

Crossrefs

A000040, A049588, A059634, A049560, A059315.

Sequence in context: A343715 A177678 A058375 * A003294 A096739 A039664

Adjacent sequences: A059632 A059633 A059634 * A059636 A059637 A059638

Keyword

nonn,easy

Author

Klaus Brockhaus, Feb 02 2001

Status

approved