A339225
Number of unoriented series-parallel networks with n elements.
Original entry on oeis.org
1, 2, 4, 11, 30, 98, 328, 1193, 4459, 17287, 68283, 274726, 1118960, 4607578, 19135274, 80063095, 337104367, 1427274619, 6072510001, 25949049372, 111319539096, 479243000380, 2069825207344, 8965693829582, 38940393808337, 169546919220357, 739895248735963
Offset: 1
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'.
a(1) = 1: (o).
a(2) = 2: (oo), (o|o).
a(3) = 4: (ooo), (o(o|o)), (o|o|o), (o|oo).
a(4) = 11: (oooo), (oo(o|o)), (o(o|o)o), ((o|o)(o|o)), (o(o|oo)), (o(o|o|o)), (o|o|o|o), (o|o|oo), (oo|oo), (o|ooo), (o|o(o|o)).
-
\\ here B(n) gives A003430 as a power series.
EulerT(v)={Vec(exp(x*Ser(dirmul(v,vector(#v,n,1/n))))-1, -#v)}
B(n)={my(p=x+O(x^2)); for(n=2, n, p=x*Ser(EulerT(Vec(p^2/(1+p)+x)))); p}
seq(n)={my(q=subst(B((n+1)\2), x, x^2), s=x^2+q^2/(1+q), p=x+O(x^2), t=p); for(n=1, n\2, t=x + q*(1 + p); p=x + x*Ser(EulerT(Vec(t+(s-subst(t,x,x^2))/2))) - t); Vec(p+t-x+B(n))/2}
A339158
Number of essentially parallel achiral series-parallel networks with n elements.
Original entry on oeis.org
1, 1, 2, 4, 8, 18, 37, 84, 180, 413, 902, 2084, 4628, 10726, 24128, 56085, 127421, 296955, 680092, 1588665, 3662439, 8574262, 19875081, 46628789, 108584460, 255264307, 596774173, 1405626896, 3297314994, 7780687159, 18305763571, 43271547808, 102069399803
Offset: 1
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'.
a(1) = 1: (o).
a(2) = 1: (o|o).
a(3) = 2: (o|oo).
a(4) = 4: (o|ooo), (oo|oo), (o|o|oo), (o|o|o|o).
a(5) = 8: (o|oooo), (o|(o|o)(o|o)), (o|o(o|o)o), (oo|ooo), (o|o|ooo), (o|oo|oo), (o|o|o|oo), (o|o|o|o|o).
a(6) = 16 includes (o(o|o)|(o|o)o) which is the first example of a network that is achiral but does not have reflective symmetry when embedded in the plane as shown below (edges correspond to elements):
A
/ \\
o o --- No reflective symmetry ---
\\ /
Z
-
\\ here B(n) gives A003430 as a power series.
EulerT(v)={Vec(exp(x*Ser(dirmul(v,vector(#v,n,1/n))))-1, -#v)}
B(n)={my(p=x+O(x^2)); for(n=2, n, p=x*Ser(EulerT(Vec(p^2/(1+p)+x)))); p}
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, my(t=x + q*(1 + p)); p=x + x*Ser(EulerT(Vec(t+(s-subst(t,x,x^2))/2))) - t); Vec(p+O(x*x^n))}
A339295
Number of essentially parallel unoriented series-parallel networks with n elements and without multiple unit elements in parallel.
Original entry on oeis.org
1, 0, 1, 2, 4, 10, 25, 69, 197, 589, 1806, 5685, 18168, 58905, 192904, 637294, 2119994, 7094961, 23865782, 80642017, 273571625, 931389949, 3181184007, 10897272983, 37429033777, 128874546753, 444744161951, 1538030244174, 5329246656885, 18499283612755
Offset: 1
In the following examples, elements in series are juxtaposed and elements in parallel are separated by '|'. The unit element is denoted by 'o'.
a(1) = 1: (o).
a(3) = 1: (o|oo).
a(4) = 2: (o|ooo), (oo|oo).
a(5) = 4: (o|oooo), (o|o(o|oo)), (oo|ooo), (o|oo|oo).
-
\\ here B(n) gives A339290 as a power series.
EulerT(v)={Vec(exp(x*Ser(dirmul(v, vector(#v, n, 1/n))))-1, -#v)}
B(n, Z=x)={my(p=Z+O(x^2)); for(n=2, n, p = Z + (1 + Z)*x*Ser(EulerT( Vec(p^2/(1+p), -n) ))); p}
seq(n, Z=x)={my(q=subst(B((n+1)\2, Z), x, x^2), s=q^2/(1+q), p=Z+O(x^2), t=0); forstep(n=2, n, 2, t=q*(1 + p); p=Z + (1 + Z)*x*Ser(EulerT(Vec(t+(s-subst(t, x, x^2))/2, -n-1))) - t); Vec(p+1-1/(1+B(n,Z)))/2}
A339223
Number of essentially series unoriented series-parallel networks with n elements.
Original entry on oeis.org
1, 1, 2, 6, 17, 57, 196, 723, 2729, 10638, 42161, 169912, 692703, 2853523, 11852644, 49592966, 208800209, 883970867, 3760605627, 16068272965, 68925340187, 296705390322, 1281351319402, 5549911448062, 24103086681839, 104938476264310, 457920147387969, 2002462084788769
Offset: 1
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'.
a(1) = 1: (o).
a(2) = 1: (oo), (o|o).
a(3) = 2: (ooo), (o(o|o)).
a(4) = 6: (oooo), (oo(o|o)), (o(o|o)o), ((o|o)(o|o)), (o(o|oo)), (o(o|o|o)).
-
\\ here B(n) gives A003430 as a power series.
EulerT(v)={Vec(exp(x*Ser(dirmul(v,vector(#v,n,1/n))))-1, -#v)}
B(n)={my(p=x+O(x^2)); for(n=2, n, p=x*Ser(EulerT(Vec(p^2/(1+p)+x)))); p}
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}
Showing 1-4 of 4 results.
Comments