OFFSET
1,2
LINKS
T. D. Noe, Table of n, a(n) for n = 1..1000
FORMULA
MATHEMATICA
nn = 8; Table[If[Mod[nn, p] == 0, 0, MultiplicativeOrder[nn, p]], {p, Prime[Range[100]]}]
PROG
(GAP) A000040:=Filtered([1..350], IsPrime);;
(PARI) a(n, {base=8}) = my(p=prime(n)); if(base%p, znorder(Mod(base, p)), 0) \\ Jianing Song, May 13 2024
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
T. D. Noe, Apr 11 2012
STATUS
approved