OFFSET
1,3
LINKS
Jianing Song, Table of n, a(n) for n = 1..10000
MATHEMATICA
A380533[n_] := If[n < 3, 0, MultiplicativeOrder[-6, Prime[n]]];
Array[A380533, 100] (* Paolo Xausa, Jun 29 2025 *)
PROG
(PARI) a(n, {k=-6}) = my(p = prime(n)); if(k%p==0, 0, znorder(Mod(k, p)))
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Jianing Song, Jun 27 2025
STATUS
approved
