OFFSET
1,2
LINKS
Jianing Song, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Map[MultiplicativeOrder[-4, #] &, Prime[Range[200]]], OddQ] (* Paolo Xausa, Jun 30 2025 *)
PROG
(PARI) forprime(p=3, 1e4, z=znorder(Mod(-4, p)); if(z%2, print1(z, ", ")))
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Jianing Song, Jun 22 2025
STATUS
approved
