OFFSET
1,4
COMMENTS
Essentially the same as A050979. [R. J. Mathar, Oct 13 2008]
LINKS
Muniru A Asiru, Table of n, a(n) for n = 1..10000
MATHEMATICA
MultiplicativeOrder[7, #] & /@ Select[ Range@ 100, GCD[7, #] == 1 &] (* Robert G. Wilson v, Apr 05 2011 *)
PROG
(PARI) lista(nn) = {for (n=1, nn, if (gcd(n, 7) == 1, print1(znorder(Mod(7, n)), ", ")); ); } \\ Michel Marcus, Feb 06 2015
(GAP) List(Filtered([1..120], n->Gcd(n, 7)=1), n->OrderMod(7, n)); # Muniru A Asiru, Feb 25 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved