%I #16 Sep 29 2017 04:27:20
%S 1,1,2,2,6,4,2,6,4,8,168,6,48,4,10,4,12,12,6,8,8,16,96,192,20160,16,6,
%T 48,18,8,24,12,10,22,8,16,336,20,480,12,18,108,11232,12,36,28,8,30,16,
%U 32,128,384,1536,21504,9999360,20,16,24,12,36,96,288,36,18,24,16,32,672
%N Array read by rows: T(n,k) is the number of automorphisms of the k-th Abelian group of order n, where the ordering is such that the rows are nondecreasing.
%C This is a subtable of A137316.
%C The length of the n-th row is A000688(n).
%C The largest value of the n-th row is A061350(n).
%C The number phi(n) = A000010(n) appears in the n-th row.
%C The number A064767(n) appears in the (n^3)-th row.
%C The number A062771(n) appears in the (2n)-th row.
%H C. J. Hillar and D. L. Rhea, <a href="http://arxiv.org/abs/math/0605185">Automorphisms of finite abelian groups</a>, arXiv:math/0605185 [math.GR], 2006.
%H C. J. Hillar and D. L. Rhea, <a href="http://www.jstor.org/stable/27642365">Automorphisms of finite abelian groups</a>, Amer. Math. Monthly 114 (2007), no 10, 917-923.
%H D. MacHale and R. Sheehy, <a href="http://www.jstor.org/stable/40656888">Finite groups with few automorphisms</a>, Math. Proc. Roy. Irish Acad., 104A(2) (2004), 231--238.
%e The table begins as follows:
%e 1
%e 1
%e 2
%e 2 6
%e 4
%e 2
%e 6
%e 4 8 168
%e 6 48
%e 4
%e 10
%e 4 12
%e The first row with two numbers corresponds to the two Abelian groups of order 4, the cyclic group C_4 and the Klein group C_2 x C_2, whose automorphism groups are respectively the group (C_4)^x = C_2 and the symmetric group S_3.
%o (GAP4)
%o Print("\n") ;
%o for o in [ 1 .. 40 ] do
%o n := NumberSmallGroups(o) ;
%o og := [] ;
%o for i in [1 .. n] do
%o g := SmallGroup(o,i) ;
%o if IsAbelian(g) then
%o H := AutomorphismGroup(g) ;
%o ho := Order(H) ;
%o Add(og,ho) ;
%o fi ;
%o od;
%o Sort(og) ;
%o Print(og) ;
%o Print("\n") ;
%o od; # _R. J. Mathar_, Jul 13 2013
%K easy,nonn,tabf
%O 1,3
%A _Benoit Jubin_, May 12 2008
|