|
|
A008325
|
|
Number of simple regular trivalent bipartite graphs with 2n nodes.
|
|
6
|
|
|
1, 1, 2, 6, 14, 41, 157, 725, 4196, 29816, 246644, 2297075, 23503477, 260265023, 3090336300, 39101547971, 524782945991, 7443247863498, 111221983956652, 1746165682538497, 28734206614035245, 494526496354065244, 8883865784392246280, 166286434745252091055, 3237719048384605059117, 65477287940472122129194
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
3,3
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
A006823 = Cases[Import["https://oeis.org/A006823/b006823.txt", "Table"], {_, _}][[All, 2]];
etr[f_] := Module[{b}, b[n_] := b[n] = If[n == 0, 1, Sum[Sum[d f[d], {d, Divisors[j]}] b[n - j], {j, 1, n}]/n]; b];
b[n_] := If[n >= 3, A006823[[n - 2]], 0];
a = etr[b];
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,hard
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|