|
|
A165647
|
|
Number of simple graphs on n vertices with each component regular.
|
|
3
|
|
|
1, 2, 3, 6, 9, 18, 27, 58, 99, 316, 936, 20225, 410571, 50745729, 2993355213, 1701561156737, 444491521018441, 650424404724148930, 430363737398835017296, 2886485242642120438501318, 8838475960755164592843156768, 152938120727373876718042362054465
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
This sequence is the Euler transformation of A005177.
|
|
EXAMPLE
|
The a(1)=1 graph is: K_1.
The a(2)=2 graphs are: 2K_1, K_2.
The a(3)=3 graphs are: 3K_1, K_1+K_2, K_3.
The a(4)=6 graphs are: 4K_1, 2K_1+K_2, K_1+K_3, 2K_2, C_4, K_4.
|
|
MATHEMATICA
|
A005177 = Cases[Import["https://oeis.org/A005177/b005177.txt", "Table"], {_, _}][[All, 2]];
etr[p_] := Module[{b}, b[n_] := b[n] = If[n == 0, 1, Sum[DivisorSum[j, # p[#]&] b[n - j], {j, 1, n}]/n]; b];
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,hard
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|