|
%I #32 Dec 17 2021 09:23:01
%S 1,1,2,5,14,50,191,881,4494,26389,184749,1728404,23805256,491544474,
%T 14491876320
%N Number of connected claw-free unlabeled graphs on n nodes.
%H R. Faudree, E. Flandrin and Z. Ryjacek, <a href="https://doi.org/10.1016/S0012-365X(96)00045-3">Claw-free graphs - a survey</a>, Discr. Math., 164 (1997), 87-147.
%H F. Hüffner, <a href="https://github.com/falk-hueffner/tinygraph">tinygraph</a>, software for generating integer sequences based on graph properties, version 8489dde.
%H Gordon Royle, <a href="http://www.csse.uwa.edu.au/~gordon/cf.zip">1728404 distinct 12-vertex connected clawfree graphs</a>
%H Gordon Royle, <a href="http://www.csse.uwa.edu.au/~gordon/g6.html">g6 format</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Claw-FreeGraph.html">Claw-Free Graph</a>
%H Wikipedia, <a href="https://en.wikipedia.org/wiki/Claw-free_graph">Claw-free Graph</a>
%F Inverse Euler transform of A086991. - _Andrew Howroyd_, Nov 03 2017
%t EulerInvTransform[seq_] := Module[{final = {}}, For[i = 1, i <= Length[seq], i++, AppendTo[final, i*seq[[i]] - Sum[final[[d]]*seq[[i - d]], {d, i - 1}]]]; Table[Sum[MoebiusMu[i/d]*final[[d]], {d, Divisors[i]}]/i, {i, Length[seq]}]];
%t A086991 = Cases[Import["https://oeis.org/A086991/b086991.txt", "Table"], {_, _}][[All, 2]];
%t EulerInvTransform[A086991] (* _Jean-François Alcover_, Aug 20 2019, code due to _Gus Wiseman_ *)
%Y Cf. A022563, A022564, A058929, A086991 (Euler transform).
%K nonn,nice,more
%O 1,3
%A _N. J. A. Sloane_
%E Corrected and extended by _Gordon F. Royle_, May 16 2003
%E Term a(14) added by _Gordon F. Royle_, Aug 06 2008
%E Term a(15) added using tinygraph by _Falk Hüffner_, Jan 12 2016
|
