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