OFFSET
1,1
COMMENTS
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
Wikipedia, Artin's conjecture on primitive roots.
MAPLE
select(p -> isprime(p) and numtheory:-order(-7/2 mod p, p) = p-1, [seq(i, i=3..1000, 2)]); # Robert Israel, Nov 10 2024
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
AUTHOR
Jianing Song, Oct 18 2024
STATUS
approved