cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Previous Showing 31-40 of 134 results. Next

A292086 Number T(n,k) of (unlabeled) rooted trees with n leaf nodes and without unary nodes such that k is the maximum of 1 and the node outdegrees; triangle T(n,k), n>=1, 1<=k<=n, read by rows.

Original entry on oeis.org

1, 0, 1, 0, 1, 1, 0, 2, 2, 1, 0, 3, 6, 2, 1, 0, 6, 17, 7, 2, 1, 0, 11, 47, 22, 7, 2, 1, 0, 23, 133, 72, 23, 7, 2, 1, 0, 46, 380, 230, 77, 23, 7, 2, 1, 0, 98, 1096, 751, 256, 78, 23, 7, 2, 1, 0, 207, 3186, 2442, 861, 261, 78, 23, 7, 2, 1, 0, 451, 9351, 8006, 2897, 887, 262, 78, 23, 7, 2, 1
Offset: 1

Views

Author

Alois P. Heinz, Sep 08 2017

Keywords

Examples

			:   T(4,2) = 2        :   T(4,3) = 2      : T(4,4) = 1 :
:                     :                   :            :
:       o       o     :      o       o    :     o      :
:      / \     / \    :     / \     /|\   :   /( )\    :
:     o   N   o   o   :    o   N   o N N  :  N N N N   :
:    / \     ( ) ( )  :   /|\     ( )     :            :
:   o   N    N N N N  :  N N N    N N     :            :
:  ( )                :                   :            :
:  N N                :                   :            :
:                     :                   :            :
Triangle T(n,k) begins:
  1;
  0,  1;
  0,  1,   1;
  0,  2,   2,   1;
  0,  3,   6,   2,  1;
  0,  6,  17,   7,  2,  1;
  0, 11,  47,  22,  7,  2, 1;
  0, 23, 133,  72, 23,  7, 2, 1;
  0, 46, 380, 230, 77, 23, 7, 2, 1;
  ...
		

Crossrefs

Columns k=1-10 give: A063524, A001190 (for n>1), A292229, A292230, A292231, A292232, A292233, A292234, A292235, A292236.
Row sums give A000669.
Limit of reversed rows gives A292087.

Programs

  • Maple
    b:= proc(n, i, v, k) option remember; `if`(n=0,
          `if`(v=0, 1, 0), `if`(i<1 or v<1 or n A(n, k)-`if`(k=1, 0, A(n, k-1)):
    seq(seq(T(n, k), k=1..n), n=1..15);
  • Mathematica
    b[n_, i_, v_, k_] := b[n, i, v, k] = If[n == 0, If[v == 0, 1, 0], If[i < 1 || v < 1 || n < v, 0, If[v == n, 1, Sum[Binomial[A[i, k] + j - 1, j]*b[n - i*j, i - 1, v - j, k], {j, 0, Min[n/i, v]}]]]];
    A[n_, k_] := A[n, k] = If[n < 2, n, Sum[b[n, n + 1 - j, j, k], {j, 2, Min[n, k]}]];
    T[n_, k_] := A[n, k] - If[k == 1, 0, A[n, k - 1]];
    Table[Table[T[n, k], {k, 1, n}], {n, 1, 15}] // Flatten (* Jean-François Alcover, Nov 07 2017, after Alois P. Heinz *)

Formula

T(n,k) = A292085(n,k) - A292085(n,k-1) for k>2, T(n,1) = A292085(n,1).

A292556 Number of rooted unlabeled trees on n nodes where each node has at most 11 children.

Original entry on oeis.org

1, 1, 1, 2, 4, 9, 20, 48, 115, 286, 719, 1842, 4766, 12485, 32970, 87802, 235355, 634771, 1720940, 4688041, 12824394, 35216524, 97039824, 268238379, 743596131, 2066801045, 5758552717, 16080588286, 44997928902, 126160000878, 354349643101, 996946927831
Offset: 0

Views

Author

Marko Riedel, Sep 18 2017

Keywords

Crossrefs

Programs

  • Maple
    b:= proc(n, i, t, k) option remember; `if`(n=0, 1,
          `if`(i<1, 0, add(binomial(b((i-1)$2, k$2)+j-1, j)*
           b(n-i*j, i-1, t-j, k), j=0..min(t, n/i))))
        end:
    a:= n-> `if`(n=0, 1, b(n-1$2, 11$2)):
    seq(a(n), n=0..35);  # Alois P. Heinz, Sep 20 2017
  • Mathematica
    b[n_, i_, t_, k_] := b[n, i, t, k] = If[n == 0, 1, If[i<1, 0, Sum[Binomial[ b[i-1, i-1, k, k]+j-1, j]*b[n-i*j, i-1, t-j, k], {j, 0, Min[t, n/i]}]]];
    a[n_] := If[n == 0, 1, b[n-1, n-1, 11, 11]];
    Table[a[n], {n, 0, 35}] (* Jean-François Alcover, Jun 05 2018, after Alois P. Heinz *)

Formula

Functional equation of g.f. is T(z) = z + z*Sum_{q=1..11} Z(S_q)(T(z)) with Z(S_q) the cycle index of the symmetric group.
Alternate FEQ is T(z) = 1 + z*Z(S_11)(T(z)).
a(n) = Sum_{j=1..11} A244372(n,j) for n > 0, a(0) = 1. - Alois P. Heinz, Sep 20 2017
Limit_{n->oo} a(n)/a(n+1) = 0.338324339068091181557475416836618315086769320447748735003402... - Robert A. Russell, Feb 11 2023

A298204 Number of unlabeled rooted trees with n nodes in which all outdegrees are either 0, 1, or 3.

Original entry on oeis.org

1, 1, 1, 2, 3, 5, 9, 16, 29, 55, 104, 200, 389, 763, 1507, 3002, 6010, 12102, 24484, 49751, 101475, 207723, 426542, 878451, 1813945, 3754918, 7790326, 16196629, 33739335, 70410401, 147187513, 308171861, 646188276, 1356847388, 2852809425, 6005542176
Offset: 1

Views

Author

Gus Wiseman, Jan 14 2018

Keywords

Examples

			The a(7) = 9 trees: ((((((o)))))), ((((ooo)))), (((oo(o)))), ((oo((o)))), ((o(o)(o))), (oo(((o)))), (oo(ooo)), (o(o)((o))), ((o)(o)(o)).
		

Crossrefs

Programs

  • Maple
    b:= proc(n, i, v) option remember; `if`(n=0,
          `if`(v=0, 1, 0), `if`(i<1 or v<1 or n `if`(n<2, n, add(b(n-1$2, j), j=[1, 3])):
    seq(a(n), n=1..40);  # Alois P. Heinz, Jan 30 2018
  • Mathematica
    multing[n_,k_]:=Binomial[n+k-1,k];
    a[n_]:=a[n]=If[n===1,1,Sum[Product[multing[a[x],Count[ptn,x]],{x,Union[ptn]}],{ptn,Select[IntegerPartitions[n-1],MemberQ[{1,3},Length[#]]&]}]];
    Table[a[n],{n,40}]
    (* Second program: *)
    b[n_, i_, v_] := b[n, i, v] = If[n == 0,
         If[v == 0, 1, 0], If[i < 1 || v < 1 || n < v, 0,
         If[n == v, 1, Sum[Binomial[a[i] + j - 1, j]*
         b[n - i*j, i - 1, v - j], {j, 0, Min[n/i, v]}]]]];
    a[n_] := If[n < 2, n, Sum[b[n - 1, n - 1, j], {j, {1, 3}}]];
    Array[a, 40] (* Jean-François Alcover, May 10 2021, after Alois P. Heinz *)

A318231 Number of inequivalent leaf-colorings of series-reduced rooted trees with n nodes.

Original entry on oeis.org

1, 0, 2, 3, 9, 23, 73, 229, 796, 2891, 11118, 44695, 187825, 820320, 3716501, 17413308, 84209071, 419461933, 2148673503, 11301526295, 60956491070, 336744177291, 1903317319015, 10995856040076, 64873456288903, 390544727861462, 2397255454976268, 14993279955728851
Offset: 1

Views

Author

Gus Wiseman, Aug 21 2018

Keywords

Comments

In a series-reduced rooted tree, every non-leaf node has at least two branches.

Examples

			Inequivalent representatives of the a(6) = 23 leaf-colorings:
  (11(11))  (1(111))  (11111)
  (11(12))  (1(112))  (11112)
  (11(22))  (1(122))  (11122)
  (11(23))  (1(123))  (11123)
  (12(11))  (1(222))  (11223)
  (12(12))  (1(223))  (11234)
  (12(13))  (1(234))  (12345)
  (12(33))
  (12(34))
		

Crossrefs

Programs

  • PARI
    \\ See links in A339645 for combinatorial species functions.
    cycleIndexSeries(n)={my(v=vector(n)); v[1]=sv(1); for(n=2, #v, v[n] = polcoef( sEulerT(x*Ser(concat(v[1..n-2], [0]))), n-1 )); x*Ser(v)}
    InequivalentColoringsSeq(cycleIndexSeries(15)) \\ Andrew Howroyd, Dec 11 2020

Extensions

Terms a(8) and beyond from Andrew Howroyd, Dec 11 2020

A319539 Array read by antidiagonals: T(n,k) is the number of binary rooted trees with n leaves of k colors and all non-leaf nodes having out-degree 2.

Original entry on oeis.org

1, 2, 1, 3, 3, 1, 4, 6, 6, 2, 5, 10, 18, 18, 3, 6, 15, 40, 75, 54, 6, 7, 21, 75, 215, 333, 183, 11, 8, 28, 126, 495, 1260, 1620, 636, 23, 9, 36, 196, 987, 3600, 8010, 8208, 2316, 46, 10, 45, 288, 1778, 8568, 28275, 53240, 43188, 8610, 98, 11, 55, 405, 2970, 17934, 80136, 232500, 366680, 232947, 32763, 207
Offset: 1

Views

Author

Andrew Howroyd, Sep 22 2018

Keywords

Comments

Not all k colors need to be used. The total number of nodes will be 2n-1.
See table 2.1 in the Johnson reference.

Examples

			Array begins:
===========================================================
n\k|  1    2      3       4        5        6         7
---+-------------------------------------------------------
1  |  1    2      3       4        5        6         7 ...
2  |  1    3      6      10       15       21        28 ...
3  |  1    6     18      40       75      126       196 ...
4  |  2   18     75     215      495      987      1778 ...
5  |  3   54    333    1260     3600     8568     17934 ...
6  |  6  183   1620    8010    28275    80136    194628 ...
7  | 11  636   8208   53240   232500   785106   2213036 ...
8  | 23 2316  43188  366680  1979385  7960638  26037431 ...
9  | 46 8610 232947 2590420 17287050 82804806 314260765 ...
...
		

Crossrefs

Columns 1..5 are A001190, A083563, A220816, A220817, A220818.
Main diagonal is A319580.

Programs

  • Maple
    A:= proc(n, k) option remember; `if`(n<2, k*n, `if`(n::odd, 0,
          (t-> t*(1-t)/2)(A(n/2, k)))+add(A(i, k)*A(n-i, k), i=1..n/2))
        end:
    seq(seq(A(n, 1+d-n), n=1..d), d=1..12);  # Alois P. Heinz, Sep 23 2018
  • Mathematica
    A[n_, k_] := A[n, k] = If[n<2, k*n, If[OddQ[n], 0, (#*(1-#)/2&)[A[n/2, k]]] + Sum[A[i, k]*A[n-i, k], {i, 1, n/2}]];
    Table[A[n, d-n+1], {d, 1, 12}, {n, 1, d}] // Flatten (* Jean-François Alcover, Sep 02 2019, after Alois P. Heinz *)
  • PARI
    \\ here R(n,k) gives k-th column as a vector.
    R(n,k)={my(v=vector(n)); v[1]=k; for(n=2, n, v[n]=sum(j=1, (n-1)\2, v[j]*v[n-j]) + if(n%2, 0, binomial(v[n/2]+1, 2))); v}
    {my(T=Mat(vector(8, k, R(8, k)~))); for(n=1, #T~, print(T[n,]))}

Formula

T(1,k) = k.
T(n,k) = (1/2)*([n mod 2 == 0]*T(n/2,k) + Sum_{j=1..n-1} T(j,k)*T(n-j,k)).
G.f. of k-th column R(x) satisfies R(k) = k*x + (R(x)^2 + R(x^2))/2.

A292553 Number of rooted unlabeled trees on n nodes where each node has at most 8 children.

Original entry on oeis.org

1, 1, 1, 2, 4, 9, 20, 48, 115, 286, 718, 1839, 4757, 12460, 32897, 87592, 234746, 633013, 1715851, 4673320, 12781759, 35093010, 96681705, 267199518, 740580555, 2058042803, 5733101603, 16006590851, 44782679547, 125533577578, 352525803976, 991634575368
Offset: 0

Views

Author

Marko Riedel, Sep 18 2017

Keywords

Crossrefs

Programs

  • Maple
    b:= proc(n, i, t, k) option remember; `if`(n=0, 1,
          `if`(i<1, 0, add(binomial(b((i-1)$2, k$2)+j-1, j)*
           b(n-i*j, i-1, t-j, k), j=0..min(t, n/i))))
        end:
    a:= n-> `if`(n=0, 1, b(n-1$2, 8$2)):
    seq(a(n), n=0..35);  # Alois P. Heinz, Sep 20 2017
  • Mathematica
    b[n_, i_, t_, k_] := b[n, i, t, k] = If[n == 0, 1, If[i < 1, 0, Sum[ Binomial[b[i - 1, i - 1, k, k] + j - 1, j]*b[n - i*j, i - 1, t - j, k], {j, 0, Min[t, n/i]}]]];
    a[n_] := If[n == 0, 1, b[n - 1, n - 1, 8, 8]];
    Table[a[n], {n, 0, 35}] (* Jean-François Alcover, Jun 04 2018, after Alois P. Heinz *)

Formula

Functional equation of G.f. is T(z) = z + z*Sum_{q=1..8} Z(S_q)(T(z)) with Z(S_q) the cycle index of the symmetric group. Alternate FEQ is T(z) = 1 + z*Z(S_8)(T(z)).
a(n) = Sum_{j=1..8} A244372(n,j) for n>0, a(0) = 1. - Alois P. Heinz, Sep 20 2017
a(n) / a(n+1) ~ 0.338386042364849957035744926227166370702775721795018600630554... - Robert A. Russell, Feb 11 2023

A292554 Number of rooted unlabeled trees on n nodes where each node has at most 9 children.

Original entry on oeis.org

1, 1, 1, 2, 4, 9, 20, 48, 115, 286, 719, 1841, 4763, 12477, 32947, 87735, 235162, 634212, 1719325, 4683368, 12810871, 35177357, 96926335, 267909285, 742641309, 2064029034, 5750500663, 16057186086, 44929879114, 125962026154, 353773417487, 995269027339
Offset: 0

Views

Author

Marko Riedel, Sep 18 2017

Keywords

Crossrefs

Programs

  • Maple
    b:= proc(n, i, t, k) option remember; `if`(n=0, 1,
          `if`(i<1, 0, add(binomial(b((i-1)$2, k$2)+j-1, j)*
           b(n-i*j, i-1, t-j, k), j=0..min(t, n/i))))
        end:
    a:= n-> `if`(n=0, 1, b(n-1$2, 9$2)):
    seq(a(n), n=0..35);  # Alois P. Heinz, Sep 20 2017
  • Mathematica
    b[n_, i_, t_, k_] := b[n, i, t, k] = If[n == 0, 1, If[i < 1, 0, Sum[ Binomial[b[i - 1, i - 1, k, k] + j - 1, j]*b[n - i*j, i - 1, t - j, k], {j, 0, Min[t, n/i]}]]];
    a[n_] := If[n == 0, 1, b[n - 1, n - 1, 9, 9]];
    Table[a[n], {n, 0, 35}] (* Jean-François Alcover, Jun 04 2018, after Alois P. Heinz *)

Formula

Functional equation of G.f. is T(z) = z + z*Sum_{q=1..9} Z(S_q)(T(z)) with Z(S_q) the cycle index of the symmetric group. Alternate FEQ is
T(z) = 1 + z*Z(S_9)(T(z)).
a(n) = Sum_{j=1..9} A244372(n,j) for n>0, a(0) = 1. - Alois P. Heinz, Sep 20 2017
a(n) / a(n+1) ~ 0.338343552789108712866488147828528012266693326385052387884853... - Robert A. Russell, Feb 11 2023

A292555 Number of rooted unlabeled trees on n nodes where each node has at most 10 children.

Original entry on oeis.org

1, 1, 1, 2, 4, 9, 20, 48, 115, 286, 719, 1842, 4765, 12483, 32964, 87785, 235305, 634628, 1720524, 4686842, 12820920, 35206475, 97010705, 268154003, 743351390, 2066090876, 5756490561, 16074597300, 44980514021, 126109353817, 354202275766, 996517941454
Offset: 0

Views

Author

Marko Riedel, Sep 18 2017

Keywords

Crossrefs

Programs

  • Maple
    b:= proc(n, i, t, k) option remember; `if`(n=0, 1,
          `if`(i<1, 0, add(binomial(b((i-1)$2, k$2)+j-1, j)*
           b(n-i*j, i-1, t-j, k), j=0..min(t, n/i))))
        end:
    a:= n-> `if`(n=0, 1, b(n-1$2, 10$2)):
    seq(a(n), n=0..35);  # Alois P. Heinz, Sep 20 2017
  • Mathematica
    b[n_, i_, t_, k_] := b[n, i, t, k] = If[n == 0, 1, If[i < 1, 0, Sum[ Binomial[b[i - 1, i - 1, k, k] + j - 1, j]*b[n - i*j, i - 1, t - j, k], {j, 0, Min[t, n/i]}]]];
    a[n_] := If[n == 0, 1, b[n - 1, n - 1, 10, 10]];
    Table[a[n], {n, 0, 35}] (* Jean-François Alcover, Jun 04 2018, after Alois P. Heinz *)

Formula

Functional equation of G.f. is T(z) = z + z*Sum_{q=1..10} Z(S_q)(T(z)) with Z(S_q) the cycle index of the symmetric group. Alternate FEQ is
T(z) = 1 + z*Z(S_10)(T(z)).
a(n) = Sum_{j=1..10} A244372(n,j) for n>0, a(0) = 1. - Alois P. Heinz, Sep 20 2017
a(n) / a(n+1) ~ 0.338329194566131211670667671160855741193081902868090986608524... - Robert A. Russell, Feb 11 2023

A300443 Number of binary enriched p-trees of weight n.

Original entry on oeis.org

1, 1, 2, 3, 8, 15, 41, 96, 288, 724, 2142, 5838, 17720, 49871, 151846, 440915, 1363821, 4019460, 12460721, 37374098, 116809752, 353904962, 1109745666, 3396806188, 10712261952, 33006706419, 104357272687, 323794643722, 1027723460639, 3204413808420, 10193485256501
Offset: 0

Views

Author

Gus Wiseman, Mar 05 2018

Keywords

Comments

A binary enriched p-tree of weight n is either a single node of weight n, or an ordered pair of binary enriched p-trees with weakly decreasing weights summing to n.

Examples

			The a(4) = 8 binary enriched p-trees: 4, (31), (22), ((21)1), ((11)2), (2(11)), (((11)1)1), ((11)(11)).
		

Crossrefs

Programs

  • Maple
    a:= proc(n) option remember;
          1+add(a(j)*a(n-j), j=1..n/2)
        end:
    seq(a(n), n=0..40);  # Alois P. Heinz, Mar 06 2018
  • Mathematica
    j[n_]:=j[n]=1+Sum[Times@@j/@y,{y,Select[IntegerPartitions[n],Length[#]===2&]}];
    Array[j,40]
    (* Second program: *)
    a[n_] := a[n] = 1 + Sum[a[j]*a[n-j], {j, 1, n/2}];
    a /@ Range[0, 40] (* Jean-François Alcover, May 12 2021, after Alois P. Heinz *)
  • PARI
    seq(n)={my(v=vector(n)); for(n=1, n, v[n] = 1 + sum(k=1, n\2, v[k]*v[n-k])); concat([1], v)} \\ Andrew Howroyd, Aug 26 2018

Formula

a(n) = 1 + Sum_{x + y = n, 0 < x <= y < n} a(x) * a(y).

A301345 Regular triangle where T(n,k) is the number of transitive rooted trees with n nodes and k leaves.

Original entry on oeis.org

1, 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 0, 2, 1, 0, 0, 0, 1, 3, 1, 0, 0, 0, 1, 2, 4, 1, 0, 0, 0, 0, 3, 4, 5, 1, 0, 0, 0, 0, 2, 6, 6, 6, 1, 0, 0, 0, 0, 1, 6, 10, 9, 7, 1, 0, 0, 0, 0, 1, 5, 12, 16, 12, 8, 1, 0, 0, 0, 0, 0, 4, 13, 22, 23, 16, 9, 1, 0, 0, 0, 0, 0, 3, 14, 27, 36, 32, 20, 10, 1, 0, 0, 0, 0, 0, 2, 11
Offset: 1

Views

Author

Gus Wiseman, Mar 19 2018

Keywords

Examples

			Triangle begins:
1
1   0
0   1   0
0   1   1   0
0   0   2   1   0
0   0   1   3   1   0
0   0   1   2   4   1   0
0   0   0   3   4   5   1   0
0   0   0   2   6   6   6   1   0
0   0   0   1   6  10   9   7   1   0
0   0   0   1   5  12  16  12   8   1   0
The T(9,5) = 6 transitive rooted trees: (o(o)(oo(o))), (o((oo))(oo)), (oo(o)(o(o))), (o(o)(o)(oo)), (ooo(o)((o))), (oo(o)(o)(o)).
		

Crossrefs

Programs

  • Mathematica
    rut[n_]:=rut[n]=If[n===1,{{}},Join@@Function[c,Union[Sort/@Tuples[rut/@c]]]/@IntegerPartitions[n-1]];
    trat[n_]:=Select[rut[n],Complement[Union@@#,#]==={}&];
    Table[Length[Select[trat[n],Count[#,{},{-2}]===k&]],{n,15},{k,n}]
Previous Showing 31-40 of 134 results. Next