cp's OEIS Frontend

A339223 Number of essentially series unoriented series-parallel networks with n elements.

%I A339223 #7 Nov 28 2020 19:55:18
%S A339223 1,1,2,6,17,57,196,723,2729,10638,42161,169912,692703,2853523,
%T A339223 11852644,49592966,208800209,883970867,3760605627,16068272965,
%U A339223 68925340187,296705390322,1281351319402,5549911448062,24103086681839,104938476264310,457920147387969,2002462084788769
%N A339223 Number of essentially series unoriented series-parallel networks with n elements.
%C A339223 See A339225 for additional details.
%F A339223 a(n) = (A007453(n) + A339157(n))/2.
%e A339223 In the following examples of series-parallel networks, elements in series are juxtaposed and elements in parallel are separated by '|'. The unit element is denoted by 'o'.
%e A339223 a(1) = 1: (o).
%e A339223 a(2) = 1: (oo), (o|o).
%e A339223 a(3) = 2: (ooo), (o(o|o)).
%e A339223 a(4) = 6: (oooo), (oo(o|o)), (o(o|o)o), ((o|o)(o|o)), (o(o|oo)), (o(o|o|o)).
%o A339223 (PARI) \\ here B(n) gives A003430 as a power series.
%o A339223 EulerT(v)={Vec(exp(x*Ser(dirmul(v,vector(#v,n,1/n))))-1, -#v)}
%o A339223 B(n)={my(p=x+O(x^2)); for(n=2, n, p=x*Ser(EulerT(Vec(p^2/(1+p)+x)))); p}
%o A339223 seq(n)={my(q=subst(B((n+1)\2), x, x^2), s=x^2+q^2/(1+q), p=x+O(x^2)); for(n=1, n\2, p = x + q*(1 + x + x*Ser(EulerT(Vec(p+(s-subst(p, x, x^2))/2))) - p)); Vec(p+x+subst(x^2/(1+x),x,B(n)))/2}
%Y A339223 Cf. A003430, A007453 (oriented), A339157 (achiral), A339224, A339225.
%K A339223 nonn
%O A339223 1,3
%A A339223 _Andrew Howroyd_, Nov 27 2020