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 81 results. Next

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}]

A324748 Number of strict integer partitions of n containing all prime indices of the parts.

Original entry on oeis.org

1, 1, 0, 1, 0, 1, 1, 1, 0, 2, 1, 2, 3, 2, 2, 4, 3, 4, 3, 5, 6, 9, 8, 7, 8, 11, 12, 13, 15, 17, 22, 22, 20, 28, 31, 32, 36, 41, 43, 53, 53, 59, 70, 76, 77, 89, 99, 108, 124, 135, 139, 160, 172, 188, 209, 229, 243, 274, 298, 315, 353, 391, 417, 457, 496, 538, 588
Offset: 0

Views

Author

Gus Wiseman, Mar 15 2019

Keywords

Comments

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

Examples

			The first 15 terms count the following integer partitions.
   1: (1)
   3: (2,1)
   5: (4,1)
   6: (3,2,1)
   7: (4,2,1)
   9: (8,1)
   9: (6,2,1)
  10: (4,3,2,1)
  11: (8,2,1)
  11: (5,3,2,1)
  12: (9,2,1)
  12: (7,4,1)
  12: (6,3,2,1)
  13: (8,4,1)
  13: (6,4,2,1)
  14: (8,3,2,1)
  14: (7,4,2,1)
  15: (12,2,1)
  15: (9,3,2,1)
  15: (8,4,2,1)
  15: (5,4,3,2,1)
An example for n = 6 is (20,18,11,5,3,2,1), with prime indices:
  20: {1,1,3}
  18: {1,2,2}
  11: {5}
   5: {3}
   3: {2}
   2: {1}
   1: {}
All of these prime indices {1,2,3,5} belong to the partition, as required.
		

Crossrefs

The subset version is A324736. The non-strict version is A324753. The Heinz number version is A290822. An infinite version is A324698.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&SubsetQ[#,PrimePi/@First/@Join@@FactorInteger/@DeleteCases[#,1]]&]],{n,0,30}]

A358453 Number of transitive ordered rooted trees with n nodes.

Original entry on oeis.org

1, 1, 1, 2, 4, 8, 17, 37, 83, 190, 444, 1051, 2518, 6090, 14852
Offset: 1

Views

Author

Gus Wiseman, Nov 18 2022

Keywords

Comments

We define an unlabeled ordered rooted tree to be transitive if every branch of a branch of the root already appears farther to the left as a branch of the root. An undirected version is A358454.

Examples

			The a(1) = 1 through a(7) = 17 trees:
  o  (o)  (oo)  (ooo)   (oooo)   (ooooo)    (oooooo)
                (o(o))  (o(o)o)  (o(o)oo)   (o(o)ooo)
                        (o(oo))  (o(oo)o)   (o(oo)oo)
                        (oo(o))  (o(ooo))   (o(ooo)o)
                                 (oo(o)o)   (o(oooo))
                                 (oo(oo))   (oo(o)oo)
                                 (ooo(o))   (oo(oo)o)
                                 (o(o)(o))  (oo(ooo))
                                            (ooo(o)o)
                                            (ooo(oo))
                                            (oooo(o))
                                            (o(o)(o)o)
                                            (o(o)(oo))
                                            (o(o)o(o))
                                            (o(oo)(o))
                                            (oo(o)(o))
                                            (o(o)((o)))
		

Crossrefs

The unordered version is A290689, ranked by A290822.
The undirected version is A358454, ranked by A358458.
These trees are ranked by A358457.
A000081 counts rooted trees.
A306844 counts anti-transitive rooted trees.

Programs

  • Mathematica
    aot[n_]:=If[n==1,{{}},Join@@Table[Tuples[aot/@c],{c,Join@@Permutations/@IntegerPartitions[n-1]}]];
    Table[Length[Select[aot[n],Function[t,And@@Table[Complement[t[[k]],Take[t,k]]=={},{k,Length[t]}]]]],{n,10}]

A184155 The Matula-Goebel number of rooted trees having all leaves at the same level.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 8, 9, 11, 16, 17, 19, 21, 23, 25, 27, 31, 32, 49, 53, 57, 59, 63, 64, 67, 73, 81, 83, 85, 97, 103, 115, 121, 125, 127, 128, 131, 133, 147, 159, 171, 189, 227, 241, 243, 256, 269, 277, 289, 307, 311, 331, 335, 343, 361, 365, 367, 371, 391, 393, 399, 419, 425, 431, 439, 441, 477
Offset: 1

Views

Author

Emeric Deutsch, Oct 07 2011

Keywords

Comments

The Matula-Goebel number of a rooted tree can be defined in the following recursive manner: to the one-vertex tree there corresponds the number 1; to a tree T with root degree 1 there corresponds the t-th prime number, where t is the Matula-Goebel number of the tree obtained from T by deleting the edge emanating from the root; to a tree T with root degree m>=2 there corresponds the product of the Matula-Goebel numbers of the m branches of T.
The sequence is infinite.

Examples

			7 is in the sequence because the rooted tree with Matula-Goebel number 7 is the rooted tree Y, having all leaves at level 2.
2^m is in the sequence for each positive integer m because the rooted tree with Matula-Goebel number 2^m is a star with m edges.
From _Gus Wiseman_, Mar 30 2018: (Start)
Sequence of trees begins:
01 o
02 (o)
03 ((o))
04 (oo)
05 (((o)))
07 ((oo))
08 (ooo)
09 ((o)(o))
11 ((((o))))
16 (oooo)
17 (((oo)))
19 ((ooo))
21 ((o)(oo))
23 (((o)(o)))
25 (((o))((o)))
27 ((o)(o)(o))
31 (((((o)))))
(End)
		

References

  • F. Goebel, On a 1-1-correspondence between rooted trees and natural numbers, J. Combin. Theory, B 29 (1980), 141-143.
  • I. Gutman and A. Ivic, On Matula numbers, Discrete Math., 150, 1996, 131-142.
  • I. Gutman and Yeong-Nan Yeh, Deducing properties of trees from their Matula numbers, Publ. Inst. Math., 53 (67), 1993, 17-22.
  • D. W. Matula, A natural rooted tree enumeration by prime factorization, SIAM Review, 10, 1968, 273.

Crossrefs

Programs

  • Maple
    with(numtheory): P := proc (n) local r, s: r := proc (n) options operator, arrow: op(1, factorset(n)) end proc: s := proc (n) options operator, arrow: n/r(n) end proc: if n = 1 then 1 elif bigomega(n) = 1 then sort(expand(x*P(pi(n)))) else sort(P(r(n))+P(s(n))) end if end proc: A := {}: for n to 500 do if degree(numer(subs(x = 1/x, P(n)))) = 0 then A := `union`(A, {n}) else  end if end do: A;
  • Mathematica
    primeMS[n_]:=If[n===1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    dep[n_]:=If[n===1,0,1+Max@@dep/@primeMS[n]];
    rnkQ[n_]:=And[SameQ@@dep/@primeMS[n],And@@rnkQ/@primeMS[n]];
    Select[Range[2000],rnkQ] (* Gus Wiseman, Mar 30 2018 *)

Formula

In A184154 one constructs for each n the generating polynomial P(n,x) of the leaves of the rooted tree with Matula-Goebel number n, according to their levels. The Maple program finds those n (between 1 and 500) for which P(n,x) is a monomial.

A295461 Number of unlabeled rooted trees with 2n + 1 nodes in which all outdegrees are even.

Original entry on oeis.org

1, 1, 2, 5, 12, 33, 91, 264, 780, 2365, 7274, 22727, 71784, 229094, 737215, 2390072, 7798020, 25587218, 84377881, 279499063, 929556155, 3102767833, 10390936382, 34903331506, 117564309276, 396994228503, 1343716120550, 4557952756658, 15491856887741
Offset: 0

Views

Author

Gus Wiseman, Jan 13 2018

Keywords

Examples

			The a(3) = 5 trees: (o(o(oo))), (o(oooo)), ((oo)(oo)), (ooo(oo)), (oooooo).
		

Crossrefs

Programs

  • Mathematica
    erut[n_]:=erut[n]=If[n===1,{{}},Join@@Function[c,Union[Sort/@Tuples[erut/@c]]]/@Select[IntegerPartitions[n-1],EvenQ[Length[#]]&]];
    Table[Length[erut[n]],{n,1,30,2}]

A324766 Matula-Goebel numbers of recursively anti-transitive rooted trees.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 8, 9, 10, 11, 16, 17, 19, 20, 21, 22, 23, 25, 27, 29, 31, 32, 33, 34, 35, 40, 44, 46, 49, 50, 51, 53, 57, 59, 62, 63, 64, 67, 68, 71, 73, 77, 79, 80, 81, 83, 85, 87, 88, 92, 93, 95, 97, 99, 100, 103, 109, 115, 118, 121, 124, 125, 127, 128
Offset: 1

Views

Author

Gus Wiseman, Mar 17 2019

Keywords

Comments

The complement is {6, 12, 13, 14, 15, 18, 24, 26, 28, 30, 36, ...}.
An unlabeled rooted tree is recursively anti-transitive if no branch of a branch of a terminal subtree is a branch of the same subtree.

Examples

			The sequence of recursively anti-transitive rooted trees together with their Matula-Goebel numbers begins:
   1: o
   2: (o)
   3: ((o))
   4: (oo)
   5: (((o)))
   7: ((oo))
   8: (ooo)
   9: ((o)(o))
  10: (o((o)))
  11: ((((o))))
  16: (oooo)
  17: (((oo)))
  19: ((ooo))
  20: (oo((o)))
  21: ((o)(oo))
  22: (o(((o))))
  23: (((o)(o)))
  25: (((o))((o)))
  27: ((o)(o)(o))
  29: ((o((o))))
  31: (((((o)))))
  32: (ooooo)
  33: ((o)(((o))))
  34: (o((oo)))
  35: (((o))(oo))
  40: (ooo((o)))
  44: (oo(((o))))
  46: (o((o)(o)))
  49: ((oo)(oo))
  50: (o((o))((o)))
		

Crossrefs

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    totantiQ[n_]:=And[Intersection[Union@@primeMS/@primeMS[n],primeMS[n]]=={},And@@totantiQ/@primeMS[n]];
    Select[Range[100],totantiQ]

A324936 Number of unlabeled rooted trees with n vertices whose non-leaf terminal subtrees are all different.

Original entry on oeis.org

1, 1, 2, 4, 8, 17, 37, 83, 189, 436, 1014, 2373, 5578, 13156, 31104, 73665, 174665, 414427, 983606, 2334488
Offset: 1

Views

Author

Gus Wiseman, Mar 21 2019

Keywords

Comments

The Matula-Goebel numbers of these trees are given by A324935.

Examples

			The a(1) = 1 through a(6) = 17 trees:
  o  (o)  (oo)   (ooo)    (oooo)     (ooooo)
          ((o))  ((oo))   ((ooo))    ((oooo))
                 (o(o))   (o(oo))    (o(ooo))
                 (((o)))  (oo(o))    (oo(oo))
                          (((oo)))   (ooo(o))
                          ((o(o)))   (((ooo)))
                          (o((o)))   ((o)(oo))
                          ((((o))))  ((o(oo)))
                                     ((oo(o)))
                                     (o((oo)))
                                     (o(o(o)))
                                     (oo((o)))
                                     ((((oo))))
                                     (((o(o))))
                                     ((o((o))))
                                     (o(((o))))
                                     (((((o)))))
		

Crossrefs

Programs

  • Mathematica
    durt[n_]:=Join@@Table[Select[Union[Sort/@Tuples[durt/@ptn]],UnsameQ@@Cases[#,{},{0,Infinity}]&],{ptn,IntegerPartitions[n-1]}];
    Table[Length[durt[n]],{n,10}]

A143363 Number of ordered trees with n edges and having no protected vertices. A protected vertex in an ordered tree is a vertex at least 2 edges away from its leaf descendants.

Original entry on oeis.org

1, 1, 1, 3, 6, 17, 43, 123, 343, 1004, 2938, 8791, 26456, 80597, 247091, 763507, 2372334, 7413119, 23271657, 73376140, 232238350, 737638868, 2350318688, 7510620143, 24064672921, 77294975952, 248832007318, 802737926643
Offset: 0

Views

Author

Emeric Deutsch, Aug 20 2008

Keywords

Comments

The "no protected vertices" condition can be rephrased as "every non-leaf vertex has at least one leaf child". But a(n) is also the number of ordered trees with n edges in which every non-leaf vertex has at most one leaf child. - David Callan, Aug 22 2014
Also the number of locally non-intersecting ordered rooted trees with n edges, meaning every non-leaf subtree has empty intersection. The unordered version is A007562. - Gus Wiseman, Nov 19 2022
a(n) is the number of parking functions of size n-1 avoiding the patterns 123, 132, and 213 . - Lara Pudwell, Apr 10 2023
For n>0, a(n) is the number of ways to place non-intersecting diagonals in convex n+3-gon so as to create no triangles such that none of the dividing diagonals passes through a chosen vertex. (empirical observation) - Muhammed Sefa Saydam, Feb 14 2025 and Aug 05 2025

Examples

			From _Gus Wiseman_, Nov 19 2022: (Start)
The a(0) = 1 through a(4) = 6 trees with at least one leaf directly under any non-leaf node:
  o  (o)  (oo)  (ooo)   (oooo)
                ((o)o)  ((o)oo)
                (o(o))  ((oo)o)
                        (o(o)o)
                        (o(oo))
                        (oo(o))
The a(0) = 1 through a(4) = 6 trees with at most one leaf directly under any node:
  o  (o)  ((o))  ((o)o)   (((o))o)
                 (o(o))   (((o)o))
                 (((o)))  ((o)(o))
                          ((o(o)))
                          (o((o)))
                          ((((o))))
(End)
		

Crossrefs

Cf. A143362.
For exactly one leaf directly under any node we have A006013.
The unordered version is A007562, ranked by A316470.
Allowing lone children gives A319378.
A000108 counts ordered rooted trees, unordered A000081.
A358453 counts transitive ordered trees, unordered A290689.
A358460 counts locally disjoint ordered trees, unordered A316473.

Programs

  • Maple
    p:=z^2*G^3-2*z*G^2-2*z^2*G^2+3*z*G+G+z^2*G-1-2*z=0: G:=RootOf(p,G): Gser:= series(G,z=0,33): seq(coeff(Gser,z,n),n=0..28);
  • Mathematica
    a[n_Integer] := a[n] = Round[SeriesCoefficient[2 (x + 1 - Sqrt[x^2 - x + 1] Cos[ArcTan[(3 x Sqrt[12 x^3 - 96 x^2 - 24 x + 15])/(2 x^3 - 30 x^2 - 3 x + 2)]/3])/(3 x), {x, 0, n}]]; Table[a[n], {n, 0, 20}] (* Vladimir Reshetnikov, Apr 10 2022 *)
    RecurrenceTable[{25 (n + 5) (n + 6) a[n + 5] - 10 (n + 5) (5 n + 21) a[n + 4] - 2 (77 n^2 + 613 n + 1185) a[n + 3] + 2 (50 n^2 + 253 n + 312) a[n + 2] + 4 (2 n + 1) (7 n + 9) a[n + 1] - 4 n (2 n + 1) a[n] == 0, a[0] == 1, a[1] == 1, a[2] == 1, a[3] == 3, a[4] == 6}, a[n], {n, 0, 27}] (* Vladimir Reshetnikov, Apr 11 2022 *)
    ait[n_]:=ait[n]=If[n==1,{{}},Join@@Table[Select[Tuples[ait/@c],MemberQ[#,{}]&],{c,Join@@Permutations/@IntegerPartitions[n-1]}]];
    Table[Length[ait[n]],{n,15}] (* Gus Wiseman, Nov 19 2022 *)

Formula

a(n) = A143362(n,0) for n>=1.
G.f.: G=G(z) satisfies z^2*G^3-2z(1+z)G^2+(1+3z+z^2)G-(1+2z)=0.
G.f.: (x+1-sqrt(x^2-x+1)*cos(arctan((3*x*sqrt(12*x^3-96*x^2-24*x+15))/(2*x^3-30*x^2-3*x+2))/3))*2/(3*x). - Vladimir Reshetnikov, Apr 10 2022
Recurrence: 25*(n+5)*(n+6)*a(n+5) - 10*(n+5)*(5*n+21)*a(n+4) - 2*(77*n^2+613*n+1185)*a(n+3) + 2*(50*n^2+253*n+312)*a(n+2) + 4*(2*n+1)*(7*n+9)*a(n+1) - 4*n*(2*n+1)*a(n) = 0. - Vladimir Reshetnikov, Apr 11 2022
From Muhammed Sefa Saydam, Jul 12 2025: (Start)
a(n) = Sum_{k=2..n+2} A046736(k) * A046736(n-k+3) , for n >= 0 and A046736(1) = 1.
a(n) = A049125(n) + Sum_{k=1..n-2} A049125(k) * A046736(n-k+2), for n >= 3.
a(n) = A049125(n) + Sum_{k=1..n-2} a(k) * a(n-k-1), for n >= 3. (End)

A301344 Regular triangle where T(n,k) is the number of semi-binary rooted trees with n nodes and k leaves.

Original entry on oeis.org

1, 1, 0, 1, 1, 0, 1, 2, 0, 0, 1, 4, 1, 0, 0, 1, 6, 4, 0, 0, 0, 1, 9, 11, 2, 0, 0, 0, 1, 12, 24, 9, 0, 0, 0, 0, 1, 16, 46, 32, 3, 0, 0, 0, 0, 1, 20, 80, 86, 20, 0, 0, 0, 0, 0, 1, 25, 130, 203, 86, 6, 0, 0, 0, 0, 0, 1, 30, 200, 423, 283, 46, 0, 0, 0, 0, 0, 0, 1, 36, 295, 816, 786, 234, 11, 0, 0, 0, 0
Offset: 1

Views

Author

Gus Wiseman, Mar 19 2018

Keywords

Comments

A rooted tree is semi-binary if all outdegrees are <= 2. The number of semi-binary trees with n nodes is equal to the number of binary trees with n+1 leaves; see A001190.

Examples

			Triangle begins:
1
1   0
1   1   0
1   2   0   0
1   4   1   0   0
1   6   4   0   0   0
1   9  11   2   0   0   0
1  12  24   9   0   0   0   0
1  16  46  32   3   0   0   0   0
1  20  80  86  20   0   0   0   0   0
1  25 130 203  86   6   0   0   0   0   0
The T(6,3) = 4 semi-binary rooted trees: ((o(oo))), (o((oo))), (o(o(o))), ((o)(oo)).
		

Crossrefs

Programs

  • Mathematica
    rbt[n_]:=rbt[n]=If[n===1,{{}},Join@@Function[c,Union[Sort/@Tuples[rbt/@c]]]/@Select[IntegerPartitions[n-1],Length[#]<=2&]];
    Table[Length[Select[rbt[n],Count[#,{},{-2}]===k&]],{n,15},{k,n}]

A318186 Totally transitive numbers. Matula-Goebel numbers of totally transitive rooted trees.

Original entry on oeis.org

1, 2, 4, 6, 8, 12, 14, 16, 18, 24, 28, 32, 36, 38, 42, 48, 54, 56, 64, 72, 76, 78, 84, 96, 98, 106, 108, 112, 114, 126, 128, 144, 152, 156, 162, 168, 192, 196, 212, 216, 222, 224, 228, 234, 252, 256, 262, 266, 288, 294, 304, 312, 318, 324, 336, 342, 366, 378
Offset: 1

Views

Author

Gus Wiseman, Aug 20 2018

Keywords

Comments

A number x is totally transitive if (1) whenever prime(y) divides x it follows that y is totally transitive and (2) if prime(y) divides x and prime(z) divides y then prime(z) also divides x.

Examples

			The sequence of all totally transitive rooted trees together with their Matula-Goebel numbers begins:
   1: o
   2: (o)
   4: (oo)
   6: (o(o))
   8: (ooo)
  12: (oo(o))
  14: (o(oo))
  16: (oooo)
  18: (o(o)(o))
  24: (ooo(o))
  28: (oo(oo))
  32: (ooooo)
  36: (oo(o)(o))
  38: (o(ooo))
  42: (o(o)(oo))
  48: (oooo(o))
  54: (o(o)(o)(o))
  56: (ooo(oo))
  64: (oooooo)
  72: (ooo(o)(o))
  76: (oo(ooo))
  78: (o(o)(o(o)))
  84: (oo(o)(oo))
  96: (ooooo(o))
  98: (o(oo)(oo))
		

Crossrefs

Programs

  • Mathematica
    subprimes[n_]:=If[n==1,{},Union@@Cases[FactorInteger[n],{p_,_}:>FactorInteger[PrimePi[p]][[All,1]]]];
    trmgQ[n_]:=Or[n==1,And[Divisible[n,Times@@subprimes[n]],And@@Cases[FactorInteger[n],{p_,_}:>trmgQ[PrimePi[p]]]]];
    Select[Range[100],trmgQ]
Previous Showing 31-40 of 81 results. Next