"Source: Text/Group/GrpAuto.text";
"Line: 815";
"Date: Tue Jun  7 22:27:14 2016";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Group/GrpAuto.text, line: 815
// Example: H73E7 ()
print "Example: H73E7";
ei := GetEchoInput();
SetEchoInput(true);
G := SmallGroup(904, 4);
FactoredOrder(G);
FactoredOrder(Centre(G));
A := AutomorphismGroup(G);
FactoredOrder(A);
HasAttribute(A, "FpGroup");     
assert not $1;
HasAttribute(A, "OuterFpGroup");
assert not $1;
F,m := FPGroup(A);
AssertAttribute(A, "FpGroup", <F,m>);
n := NormalSubgroups(G);
[x`order : x in n];
characteristics := [s : x in n |
  forall{f: f in Generators(A) | s@f eq s}
  where s is x`subgroup]; 
[#s : s in characteristics];
SetEchoInput(ei);
