%I #20 Aug 31 2019 03:16:03
%S 2,0,0,10,164,2670,56724,1867860,104538928,10461483366,1912179618740,
%T 644464839239880,402785011941549964,468944407349226545614,
%U 1021179521951204217530900,4174755063830188009750183026
%N Number of connected unlabeled symmetric relations (graphs with loops) having n nodes such that complement is also connected.
%H Andrew Howroyd, <a href="/A054922/b054922.txt">Table of n, a(n) for n = 1..50</a>
%H V. A. Liskovets, <a href="http://www.cs.uwaterloo.ca/journals/JIS/VOL3/LISK/Derseq.html">Some easily derivable sequences</a>, J. Integer Sequences, 3 (2000), #00.2.2.
%F a(n) = 2*A054921(n) - A000666(n).
%t A000666 = Cases[Import["https://oeis.org/A000666/b000666.txt", "Table"], {_, _}][[All, 2]];
%t A054921 = Cases[Import["https://oeis.org/A054921/b054921.txt", "Table"], {_, _}][[All, 2]];
%t a[n_] := 2*A054921[[n + 1]] - A000666[[n + 1]];
%t Array[a, 50] (* _Jean-François Alcover_, Aug 31 2019 *)
%Y Cf. A000666, A054291.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_, May 24 2000
%E More terms from _Vladeta Jovovic_, Jul 17 2000
|