A370168 Number of unlabeled loop-graphs with n vertices and at most n edges.

1, 2, 5, 13, 36, 102, 313, 994, 3318, 11536, 41748, 156735, 609973, 2456235, 10224216, 43946245, 194866898, 890575047, 4190997666, 20289434813, 100952490046, 515758568587, 2703023502100, 14518677321040, 79852871813827, 449333028779385, 2584677513933282

Offset

0,2

Links

Andrew Howroyd, Table of n, a(n) for n = 0..50

Example

The a(0) = 1 through a(3) = 13 loop-graph edge sets (loops shown as singletons):
  {}  {}     {}           {}
      {{1}}  {{1}}        {{1}}
             {{1,2}}      {{1,2}}
             {{1},{2}}    {{1},{2}}
             {{1},{1,2}}  {{1},{1,2}}
                          {{1},{2,3}}
                          {{1,2},{1,3}}
                          {{1},{2},{3}}
                          {{1},{2},{1,2}}
                          {{1},{2},{1,3}}
                          {{1},{1,2},{1,3}}
                          {{1},{1,2},{2,3}}
                          {{1,2},{1,3},{2,3}}

Mathematica

brute[m_]:=First[Sort[Table[Sort[Sort /@ (m/.Rule@@@Table[{(Union@@m)[[i]], p[[i]]}, {i, Length[p]}])], {p, Permutations[Range[Length[Union@@m]]]}]]];
Table[Length[Union[brute /@ Select[Subsets[Subsets[Range[n], {1, 2}]], Length[#]<=n&]]], {n, 0, 5}]

Prog

(PARI) a(n)=my(A=O(x*x^n)); if(n==0, 1, polcoef(G(n, A)/(1-x), n)) \\ G defined in A070166. - Andrew Howroyd, Feb 19 2024

Crossrefs

The labeled version is A066383, covering A369194.

The case of equality is A368598, covering A368599.

The covering case is A370169, labeled A369194.

The loopless version is A370315, labeled A369192.

The covering loopless version is A370316, labeled A369191.

A006125 counts graphs, unlabeled A000088.

A006129 counts covering graphs, unlabeled A002494.

A322661 counts covering loop-graphs, unlabeled A322700.

Cf. A000666, A005703, A014068, A062740, A368597, A368927, A369141, A369196, A369197, A369199.

Sequence in context: A002844 A223096 A277996 * A099164 A358460 A289453

Adjacent sequences: A370165 A370166 A370167 * A370169 A370170 A370171

Keyword

nonn

Author

Gus Wiseman, Feb 16 2024

Extensions

a(7) onwards from Andrew Howroyd, Feb 19 2024

Status

approved