This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A085430 #6 May 17 2013 11:14:56 %S A085430 2,2,3,4,4,3,5,6,6,10,5,12,5,4,9,8,8,18,7,5,12,11,7,20,14 %N A085430 a(n) is the minimal m such that the group GL(m,2) has an element of order n. %C A085430 For n > 1, a(prime(n)) = A014664(n). Also, a(n) <= n. - _Eric M. Schmidt_, May 17 2013 %o A085430 (GAP) %o A085430 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 %Y A085430 Cf. A002884. %K A085430 nonn,more %O A085430 2,1 %A A085430 Yuval Dekel (dekelyuval(AT)hotmail.com), Aug 18 2003 %E A085430 Sequence extended and corrected by _Eric M. Schmidt_, May 17 2013