cp's OEIS Frontend

A335888 Maximal sum of subgroup indices for a finite group of order n.

%I A335888 #6 Jun 28 2020 18:54:46
%S A335888 1,3,4,11,6,18,8,51,22,38,12,74,14,66,24,307,18,162,20,166,74,146,24,
%T A335888 378,56,198,184,298,30,308,32,2451,48,326,48,722,38,402,212,886,42,
%U A335888 564,44,682,132,578,48,2458,106,888,72,934,54,2268,182,1626,422,902,60,1444
%N A335888 Maximal sum of subgroup indices for a finite group of order n.
%D A335888 The GAP Group, GAP - Groups, Algorithms, and Programming, Version 4.9.3, 2018. gap-system.org.
%o A335888 (GAP)
%o A335888 L:=[];;
%o A335888 for n in [1..100] do
%o A335888   Mn:=0;
%o A335888   r:=NrSmallGroups(n);
%o A335888   for d in [1..r] do
%o A335888     g:=SmallGroup(n,d);
%o A335888     lat:=AllSubgroups(g);
%o A335888     sg:=Sum(List(lat, h->Order(g)/Order(h)));
%o A335888     if sg>Mn then
%o A335888       Mn:=sg;
%o A335888     fi;
%o A335888   od;
%o A335888   Add(L,Mn);
%o A335888 od;
%o A335888 Print(L);
%Y A335888 Cf. A000005, A000203, A018216, A335887.
%K A335888 nonn
%O A335888 1,2
%A A335888 _Sébastien Palcoux_, Jun 28 2020