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