|
%I #14 Apr 30 2017 08:33:06
%S 1,4,16,90,460,3064,20448
%N Sum of automorphism group orders for all simple graphs of order n.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/GraphAutomorphism.html">Graph Automorphism</a>
%t Map[Total,Table[Table[GraphData[{n, i}, "AutomorphismCount"], {i, 1, NumberOfGraphs[n]}], {n, 1, 7}]] (* _Geoffrey Critzer_, Apr 30 2017 *)
%K nonn,more
%O 1,2
%A _Eric W. Weisstein_, Nov 13 2006
%E a(7) from _Eric W. Weisstein_, Nov 01 2010
|
