OFFSET
1,1
COMMENTS
LINKS
Jianing Song, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Prime[Range[200]], OddQ[MultiplicativeOrder[-3, #]] &] (* Paolo Xausa, Jun 28 2025 *)
PROG
(PARI) isA385223(p) = isprime(p) && (p!=3) && znorder(Mod(-3, p))%2
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Jianing Song, Jun 22 2025
STATUS
approved
