|
%I #28 Mar 08 2021 22:48:27
%S 1,9,119,2662,79154,2962062,132536919,6904606698,410379198542,
%T 27406396140548,2031843175944876,165592123280454675,
%U 14715292998356150461,1416127682894394114138,146723247630856311651736,16284075762705841850155071,1927434528878738556115924081,242361176791511465207020367116
%N Number of nonisomorphic connected binary n-state automata.
%C Inverse Euler transform of A054050.
%D F. Harary and E. Palmer, Graphical Enumeration, 1973. [See Section 6.5, pp. 146-150.]
%H Christian G. Bower, <a href="https://oeis.org/transforms_pari.txt">PARI programs for transforms</a>, 2007.
%H Michael A. Harrison, <a href="http://dx.doi.org/10.4153/CJM-1965-010-9">A census of finite automata</a>, Canad. J. Math., 17, No. 1 (1965), 100-113. [See Theorem 6.1 (p. 107) with k = 2 and p = 1 and Theorem 7.2 (p. 110). See also Table I on p. 110.]
%H N. J. A. Sloane, <a href="/transforms.txt">Maple programs for transforms</a>, 2001-2020.
%o (PARI) /* This program is a modification of _Christian G. Bower_'s PARI program for the inverse Euler transform from the link above. */
%o lista(nn) = {local(A=vector(nn+1)); for(n=1, nn+1, A[n]=if(n==1, 1, A054050(n-1))); local(B=vector(#A-1, n, 1/n), C); A[1] = 1; C = log(Ser(A)); A=vecextract(A, "2.."); for(i=1, #A, A[i] = polcoeff(C, i)); A = dirdiv(A, B); } \\ _Petros Hadjicostas_, Mar 08 2021
%Y Cf. A054050, A054745, A054746.
%K nonn
%O 1,2
%A _Vladeta Jovovic_, Apr 29 2000
%E Terms a(16)-a(18) from _Petros Hadjicostas_, Mar 08 2021
|
