A202182
Number of n-element unlabeled N-free posets.
Original entry on oeis.org
1, 2, 5, 15, 49, 180, 715, 3081, 14217, 69905, 363926, 1996922, 1150036, 69269925
Offset: 1
From _Salah Uddin Mohammad_, Mar 20 2021: (Start)
The following poset on 5 nodes is considered to be N-free in this sequence.
o o
| \ |
| o |
| \ |
o o
An alternative definition of N-free used by A003430 excludes this.
(End)
- Soheir M. Khamis, Height counting of unlabeled interval and N-free posets, Discrete Math. 275 (2004), no. 1-3, 165-175.
- Salah Uddin Mohammad, Md. Shah Noor, and Md. Rashed Talukder, An Exact Enumeration of the Unlabeled Disconnected Posets, J. Int. Seq., Vol. 25 (2022), Article 22.5.4.
A331156
Number of (weakly) connected gluing-parallel or GP-posets with n points.
Original entry on oeis.org
1, 1, 1, 3, 10, 44, 233
Offset: 0
- Uli Fahrenberg, Christian Johansen, Georg Struth, Ratan Bahadur Thapa, Generating Posets Beyond N, arXiv:1910.06162 [cs.FL], 2019.
A331157
Number of iposets (posets with interfaces) with starting interfaces only, with n points.
Original entry on oeis.org
1, 2, 5, 16, 66, 350
Offset: 0
- Uli Fahrenberg, Christian Johansen, Georg Struth, Ratan Bahadur Thapa, Generating Posets Beyond N, arXiv:1910.06162 [cs.FL], 2019.
A331158
Number of iposets (posets with interfaces) with n points.
Original entry on oeis.org
1, 4, 17, 86, 532, 4068, 38933, 474822, 7558620
Offset: 0
- Uli Fahrenberg, Christian Johansen, Georg Struth, Ratan Bahadur Thapa, Generating Posets Beyond N, arXiv:1910.06162 [cs.FL], 2019.
- Uli Fahrenberg, Christian Johansen, Georg Struth, Krzysztof Ziemiański, Posets with Interfaces for Concurrent Kleene Algebra, arxiv:2106.10895 [cs.FL], 2021.
A331159
Number of GP-iposets (gluing-parallel posets with interfaces) with n points.
Original entry on oeis.org
1, 4, 16, 74, 419, 2980, 26566, 289279, 3726311
Offset: 0
- Uli Fahrenberg, Christian Johansen, Georg Struth, Ratan Bahadur Thapa, Generating Posets Beyond N, arXiv:1910.06162 [cs.FL], 2019.
- Uli Fahrenberg, Christian Johansen, Georg Struth, Krzysztof Ziemiański, Posets with Interfaces for Concurrent Kleene Algebra, arxiv:2106.10895 [cs.FL], 2021.
A339156
Number of oriented series-parallel networks with n elements and without unit elements in parallel.
Original entry on oeis.org
1, 1, 1, 2, 4, 9, 19, 43, 99, 235, 562, 1370, 3369, 8380, 21000, 53038, 134759, 344390, 884376, 2281274, 5907791, 15354795, 40037979, 104712010, 274600650, 721931534, 1902362100, 5023654075, 13292543205, 35237009037, 93570419556, 248873359877, 662940466647
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(2) = 1: (oo).
a(3) = 1: (ooo).
a(4) = 2: (oooo), (oo|oo).
a(5) = 4: (ooooo), (o(oo|oo)), ((oo|oo)o), (oo|ooo).
a(6) = 9: (oooooo), (oo(oo|oo)), (o(oo|oo)o), ((oo|oo)oo), (o(oo|ooo)), ((oo|ooo)o), (oo|oooo), (ooo|ooo), (oo|oo).
-
EulerT(v)={Vec(exp(x*Ser(dirmul(v,vector(#v,n,1/n))))-1, -#v)}
seq(n)={my(p=x+O(x^2)); for(n=2, n, p=x+x*Ser(EulerT(Vec(p^2/(1+p), -n)))); Vec(p)}
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))}
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}
A339226
Number of oriented series-parallel networks with n elements of 2 colors.
Original entry on oeis.org
2, 7, 32, 176, 1066, 6935, 47216, 332700, 2404818, 17734668, 132901644, 1009161505, 7747608480, 60037905076, 468987635982, 3689066578347, 29195587558726, 232303316402615, 1857264782113562, 14912673794505898, 120203145484455930, 972291038495626309
Offset: 1
In the following examples elements in series are juxtaposed and elements in parallel are separated by '|'.
a(1) = 2: (1), (2).
a(2) = 7: (11), (12), (21), (22), (1|1), (1|2), (2|2).
A349276
Number of unlabeled P-series with n elements.
Original entry on oeis.org
1, 2, 5, 13, 31, 76, 178, 423, 988, 2312, 5361, 12427, 28626, 65813, 150700, 344232, 783832, 1780650, 4034591, 9121571, 20576349, 46322816, 104079338, 233421517, 522574991, 1167974002, 2606282841, 5806953923, 12919314397, 28702716868, 63682839588, 141111193270
Offset: 1
-
a:= proc(n) option remember; `if`(n=0, 1, add(a(n-j)*add(d*
max(1, 2^(d-1)-1), d=numtheory[divisors](j)), j=1..n)/n)
end:
seq(a(n), n=1..30); # Alois P. Heinz, Jan 05 2022
-
a[n_] := a[n] = If[n == 0, 1, Sum[a[n - j]*Sum[d*
Max[1, 2^(d - 1) - 1], {d, Divisors[j]}], {j, 1, n}]/n];
Table[a[n], {n, 1, 30}] (* Jean-François Alcover, Mar 18 2022, after Alois P. Heinz *)
-
EulerT(v)={Vec(exp(x*Ser(dirmul(v,vector(#v,n,1/n))))-1, -#v)}
seq(n)={EulerT(Vec((1 -2*x +2*x^2)/((1-x)*(1-2*x)) + O(x*x^n)))} \\ Andrew Howroyd, Nov 19 2021
Comments