OFFSET
1,2
LINKS
T. D. Noe, Table of n, a(n) for n = 1..1000
MATHEMATICA
nn = 4; Table[If[Mod[nn, p] == 0, 0, (p-1)/MultiplicativeOrder[nn, p]], {p, Prime[Range[100]]}]
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Apr 11 2012
STATUS
approved