OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..107
MATHEMATICA
Select[Prime[Range[PrimePi[80000]]], !MemberQ[PowerMod[Range[#], 27, #], Mod[2, #]] && MemberQ[PowerMod[Range[#], 9, #], Mod[2, #]] &] (* Vincenzo Librandi, Sep 21 2013 *)
PROG
(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
CROSSREFS
KEYWORD
nonn
AUTHOR
Klaus Brockhaus, Jan 27 2001
EXTENSIONS
a(25)-a(34) from Klaus Brockhaus, Dec 05 2008
STATUS
approved