OFFSET
3,3
COMMENTS
Euler transform of A006823. - Peter J. Taylor, Sep 28 2017
LINKS
G. Brinkmann, Fast generation of cubic graphs, Journal of Graph Theory, 23(2):139-149, 1996.
Sean A. Irvine, On the difference between A004066 and A008325
MATHEMATICA
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];
a /@ Range[3, 16] (* Jean-François Alcover, Dec 03 2019 *)
CROSSREFS
KEYWORD
nonn,hard
AUTHOR
EXTENSIONS
a(15)-a(16) from Peter J. Taylor, Sep 28 2017
Terms a(17) and beyond from Andrew Howroyd, Apr 03 2020
STATUS
approved