|
%I #15 Sep 08 2022 08:45:02
%S 3943,11287,12853,14149,17659,20143,21061,21277,23059,23599,25759,
%T 26407,26731,29863,32833,33751,35803,37747,38287,39367,39799,46441,
%U 47737,47791,57781,59887,61291,62047,63127,65557,68311,71443,73063,78301
%N Primes p such that x^27 = 2 has no solution mod p, but x^9 = 2 has a solution mod p.
%H Vincenzo Librandi, <a href="/A059354/b059354.txt">Table of n, a(n) for n = 1..107</a>
%t Select[Prime[Range[PrimePi[80000]]], !MemberQ[PowerMod[Range[#], 27, #], Mod[2, #]] && MemberQ[PowerMod[Range[#], 9, #], Mod[2, #]] &] (* _Vincenzo Librandi_, Sep 21 2013 *)
%o (Magma) [ p: p in PrimesUpTo(80000) | exists(t){x: x in ResidueClassRing(p) | x^9 eq 2} and forall(t){x : x in ResidueClassRing(p) | x^27 ne 2} ]; // _Klaus Brockhaus_, Dec 05 2008
%Y Cf. A000040, A049596, A059262, A070185.
%K nonn
%O 1,1
%A _Klaus Brockhaus_, Jan 27 2001
%E a(25)-a(34) from _Klaus Brockhaus_, Dec 05 2008
|
