A339157
Number of essentially series achiral series-parallel networks with n elements.
Original entry on oeis.org
1, 1, 1, 3, 4, 11, 17, 46, 78, 203, 372, 946, 1830, 4561, 9207, 22609, 47166, 114514, 245154, 590345, 1289950, 3087959, 6858746, 16352074, 36800928, 87502317, 199036637, 472483088, 1084108363, 2571356964, 5942191918, 14090541799, 32754720101, 77684033014, 181473276607
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).
a(3) = 1: (ooo).
a(4) = 3: (oooo), ((o|o)(o|o)), (o(o|o)o).
a(5) = 4: (ooooo), ((o|o)o(o|o)), (o(o|oo)o), (o(o|o|o)o).
a(6) = 11: (oooooo), ((o|o)oo(o|o)), (o(o|o)(o|o)o), ((o|oo)(o|oo)), ((o|o|o)(o|o|o)), (oo(o|o)oo), ((o|o)(o|o)(o|o)), (o(o|ooo)o), (o(oo|oo)o), (o(o|o|oo)o), (o(o|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+O(x*x^n))}
A339159
Number of achiral series-parallel networks with n elements.
Original entry on oeis.org
1, 2, 3, 7, 12, 29, 54, 130, 258, 616, 1274, 3030, 6458, 15287, 33335, 78694, 174587, 411469, 925246, 2179010, 4952389, 11662221, 26733827, 62980863, 145385388, 342766624, 795810810, 1878109984, 4381423357, 10352044123, 24247955489, 57362089607
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) = 3: (ooo), (o|oo), (o|o|o), (o|ooo), (oo|oo), (o|o|oo), (o|o|o|o).
a(4) = 7: (oooo), ((o|o)(o|o)), (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+O(x*x^n))}
A339224
Number of essentially parallel unoriented series-parallel networks with n elements.
Original entry on oeis.org
1, 1, 2, 5, 13, 41, 132, 470, 1730, 6649, 26122, 104814, 426257, 1754055, 7282630, 30470129, 128304158, 543303752, 2311904374, 9880776407, 42394198909, 182537610058, 788473887942, 3415782381520, 14837307126498, 64608442956047, 281975101347994, 1233237605651194
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: (o|o|o), (o|oo).
a(4) = 5: (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)); 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+subst(x/(1+x), x, B(n)))/2}
A339292
Number of essentially parallel achiral series-parallel networks with n elements and without multiple unit elements in parallel.
Original entry on oeis.org
1, 0, 1, 2, 3, 6, 11, 21, 41, 79, 154, 304, 598, 1188, 2360, 4719, 9431, 18966, 38107, 76968, 155368, 314987, 638325, 1298379, 2640223, 5385737, 10984999, 22465570, 45945256, 94180208, 193076780, 396603802, 814838739, 1676975258, 3452212803, 7117242628
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) = 3: (o|oooo), (oo|ooo), (o|oo|oo).
a(6) = 6: (o|ooooo), (o|o(o|oo)o), (oo|oooo), (ooo|ooo), (o|oo|ooo), (oo|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+O(x*x^n))}
Showing 1-4 of 4 results.
Comments