Quelle  4.5.4   Sprache: unbekannt

L:=[];;
for G in AllSmallGroups(32) do
 epicentre:=UpperEpicentralSeries(G,1);
 if Size(epicentre)=1 then Add(L,IdGroup(G)); fi;
od;
Print(L,"\n");

[ Dauer der Verarbeitung: 0.14 Sekunden  (vorverarbeitet)  ]