|
%I #23 Mar 17 2020 19:31:33
%S 2,4,68,2592,278796,95720106,111891292036,457846756500066,
%T 6664787020904248568,349363873490889302878250,
%U 66602024342830108271942323060,46557190064705399729526041154647820
%N Number of connected unlabeled reflexive relations with n nodes such that complement is also connected.
%H Andrew Howroyd, <a href="/A054920/b054920.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*A054919(n) - A000595(n).
%t A000595 = Import["https://oeis.org/A000595/b000595.txt", "Table"][[All, 2]];
%t (* EulerInvTransform is defined in A022562 *)
%t A054919 = Join[{1}, EulerInvTransform[A000595 // Rest]];
%t a[n_] := 2 A054919[[n + 1]] - A000595[[n + 1]];
%t Array[a, 50] (* _Jean-François Alcover_, Sep 01 2019, updated Mar 17 2020 *)
%Y Cf. A000595, A054919.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_, May 24 2000
%E More terms from _Vladeta Jovovic_, Jul 17 2000
| 