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
KEYWORD
nonn,easy
AUTHOR
Klaus Brockhaus, Feb 04 2001
EXTENSIONS
a(37)-a(38) from Vincenzo Librandi, Sep 21 2012
STATUS
approved