OFFSET
1,2
LINKS
Andrew Howroyd, Table of n, a(n) for n = 1..100
PROG
(GAP) Concatenation([1], List([2..15], n->Maximum(List(SL(2, Integers mod n), Order))));
(PARI)
MatOrder(M)={my(id=matid(#M), k=1, N=M); while(N<>id, k++; N=N*M); k}
a(n)={my(m=0); for(a=0, n-1, for(b=0, n-1, for(c=0, n-1, for(d=0, n-1, my(M=Mod([a, b; c, d], n)); if(matdet(M)==1, m=max(m, MatOrder(M))))))); m}
CROSSREFS
KEYWORD
nonn
AUTHOR
Andrew Howroyd, Jul 06 2018
STATUS
approved