OFFSET
2,2
COMMENTS
For n > 2, a(prime(n)) = A062117(n). Also, for any n, a(n) <= n. - Eric M. Schmidt, May 18 2013
PROG
(GAP)
A086087 := function(n) local m; if IsPrime(n) and n>3 then return Order(3*Z(n)^0); fi; m := 1; while true do if ForAny(ConjugacyClasses(GL(m, 3)), cc->Order(Representative(cc))=n) then return m; fi; m := m + 1; od; end; # Eric M. Schmidt, May 18 2013
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Yuval Dekel (dekelyuval(AT)hotmail.com), Aug 24 2003
EXTENSIONS
Extended and corrected by Eric M. Schmidt, May 18 2013
STATUS
approved