OFFSET
1,1
COMMENTS
LINKS
MATHEMATICA
Cases[Prime[Range[2, 170]], _?(MemberQ[PrimitiveRootList[#], ResourceFunction["FractionMod"][-7/2, #]]&)] (* Shenghui Yang, Oct 23 2024 *)
PROG
(PARI) forprime(p=8, 10^3, if(znorder(Mod(-7/2, p))==p-1, print1(p, ", "))); \\ Joerg Arndt, Oct 19 2024
CROSSREFS
KEYWORD
nonn,easy,new
AUTHOR
Jianing Song, Oct 18 2024
STATUS
approved