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 21-30 of 31 results. Next

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)

A324769 Matula-Goebel numbers of fully anti-transitive rooted trees.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 8, 9, 11, 13, 16, 17, 19, 21, 23, 25, 27, 29, 31, 32, 35, 37, 41, 43, 47, 49, 51, 53, 57, 59, 61, 63, 64, 65, 67, 71, 73, 77, 79, 81, 83, 85, 89, 91, 95, 97, 101, 103, 107, 109, 113, 115, 121, 125, 127, 128, 129, 131, 133, 137, 139, 143, 147
Offset: 1

Views

Author

Gus Wiseman, Mar 17 2019

Keywords

Comments

An unlabeled rooted tree is fully anti-transitive if no proper terminal subtree of any branch of the root is a branch of the root.

Examples

			The sequence of fully 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))
  11: ((((o))))
  13: ((o(o)))
  16: (oooo)
  17: (((oo)))
  19: ((ooo))
  21: ((o)(oo))
  23: (((o)(o)))
  25: (((o))((o)))
  27: ((o)(o)(o))
  29: ((o((o))))
  31: (((((o)))))
  32: (ooooo)
  35: (((o))(oo))
  37: ((oo(o)))
  41: (((o(o))))
  43: ((o(oo)))
  47: (((o)((o))))
  49: ((oo)(oo))
		

Crossrefs

Programs

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

A358456 Number of recursively bi-anti-transitive ordered rooted trees with n nodes.

Original entry on oeis.org

1, 1, 2, 3, 7, 17, 47, 117, 321, 895, 2556, 7331, 21435, 63116, 187530
Offset: 1

Views

Author

Gus Wiseman, Nov 18 2022

Keywords

Comments

We define an unlabeled ordered rooted tree to be recursively bi-anti-transitive if there are no two branches of the same node such that one is a branch of the other.

Examples

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

Crossrefs

The unordered version is A324765, ranked by A324766.
The directed version is A358455.
A000108 counts ordered rooted trees, unordered A000081.
A306844 counts anti-transitive rooted trees.
A358453 counts transitive ordered trees, unordered A290689.

Programs

  • Mathematica
    aot[n_]:=If[n==1,{{}},Join@@Table[Tuples[aot/@c],{c,Join@@Permutations/@IntegerPartitions[n-1]}]];
    Table[Length[Select[aot[n],FreeQ[#,{_,x_,_,{_,x_,_},_}|{_,{_,x_,_},_,x_,_}]&]],{n,10}]

A358454 Number of weakly transitive ordered rooted trees with n nodes.

Original entry on oeis.org

1, 1, 1, 3, 6, 13, 33, 80, 201, 509, 1330, 3432, 8982, 23559, 62189
Offset: 1

Views

Author

Gus Wiseman, Nov 18 2022

Keywords

Comments

We define an unlabeled ordered rooted tree to be weakly transitive if every branch of a branch of the root is itself a branch of the root.

Examples

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

Crossrefs

The unordered version is A290689, ranked by A290822.
The directed version is A358453.
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],Complement[Union@@#,#]=={}&]],{n,10}]

A358455 Number of recursively anti-transitive ordered rooted trees with n nodes.

Original entry on oeis.org

1, 1, 2, 4, 10, 26, 72, 206, 608, 1830, 5612, 17442, 54866, 174252, 558072, 1800098
Offset: 1

Views

Author

Gus Wiseman, Nov 18 2022

Keywords

Comments

We define an unlabeled ordered rooted tree to be recursively anti-transitive if no branch of a branch of a subtree is a branch of the same subtree farther to the left.

Examples

			The a(1) = 1 through a(5) = 10 trees:
  o  (o)  (oo)   (ooo)    (oooo)
          ((o))  ((o)o)   ((o)oo)
                 ((oo))   ((oo)o)
                 (((o)))  ((ooo))
                          (((o))o)
                          (((o)o))
                          (((oo)))
                          ((o)(o))
                          (o((o)))
                          ((((o))))
		

Crossrefs

The unordered version is A324765, ranked by A324766.
The undirected version is A358456.
A000108 counts ordered rooted trees, unordered A000081.
A306844 counts anti-transitive rooted trees.
A358453 counts transitive ordered trees, unordered A290689.

Programs

  • Mathematica
    aot[n_]:=If[n==1,{{}},Join@@Table[Tuples[aot/@c],{c,Join@@Permutations/@IntegerPartitions[n-1]}]];
    Table[Length[Select[aot[n],FreeQ[#,{_,x_,_,{_,x_,_},_}]&]],{n,10}]

A324752 Number of strict integer partitions of n not containing 1 or any prime indices of the parts.

Original entry on oeis.org

1, 0, 1, 1, 1, 1, 2, 3, 1, 4, 4, 4, 5, 6, 7, 10, 9, 12, 12, 16, 17, 22, 22, 26, 31, 35, 37, 46, 50, 55, 66, 70, 82, 90, 101, 114, 127, 143, 159, 172, 202, 215, 246, 267, 301, 327, 366, 402, 447, 491, 545, 600, 655, 722, 795, 875, 964, 1050, 1152, 1259, 1383
Offset: 0

Views

Author

Gus Wiseman, Mar 16 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 a(2) = 1 through a(17) = 12 strict integer partitions (A...H = 10...17):
  2  3  4  5  6   7   8  9   A   B    C   D    E    F    G    H
              42  43     54  64  65   75  76   86   87   97   98
                  52     63  73  83   84  85   95   96   A6   A7
                         72  82  542  93  94   A4   A5   C4   B6
                                      A2  B2   B3   B4   D3   C5
                                          643  752  C3   E2   D4
                                               842  D2   763  E3
                                                    654  943  854
                                                    843  A42  863
                                                    852       872
                                                              A52
                                                              B42
An example for n = 60 is (19,14,13,7,5,2), with prime indices:
  19: {8}
  14: {1,4}
  13: {6}
   7: {4}
   5: {3}
   2: {1}
None of these prime indices {1,3,4,6,8} belong to the partition, as required.
		

Crossrefs

The subset version is A324742, with maximal case is A324763. The non-strict version is A324757. The Heinz number version is A324761. An infinite version is A304360.

Programs

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

A324757 Number of integer partitions of n not containing 1 or any prime indices of the parts.

Original entry on oeis.org

1, 0, 1, 1, 2, 1, 4, 3, 4, 6, 9, 7, 14, 12, 19, 21, 28, 29, 41, 45, 56, 64, 81, 89, 114, 125, 154, 176, 211, 236, 288, 324, 383, 432, 514, 578, 678, 766, 891, 1006, 1176, 1306, 1525, 1711, 1966, 2212, 2538, 2839, 3258, 3646, 4150, 4647, 5288, 5891, 6698, 7472
Offset: 0

Views

Author

Gus Wiseman, Mar 17 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 a(2) = 1 through a(10) = 9 integer partitions:
  (2)  (3)  (4)   (5)  (6)    (7)   (8)     (9)    (A)
            (22)       (33)   (43)  (44)    (54)   (55)
                       (42)   (52)  (422)   (63)   (64)
                       (222)        (2222)  (72)   (73)
                                            (333)  (82)
                                            (522)  (433)
                                                   (442)
                                                   (4222)
                                                   (22222)
		

Crossrefs

The subset version is A324742, with maximal case A324763. The strict case is A324752. The Heinz number version is A324761. An infinite version is A324695.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],!MemberQ[#,1]&&Intersection[#,PrimePi/@First/@Join@@FactorInteger/@#]=={}&]],{n,0,30}]

A324761 Heinz numbers of integer partitions not containing 1 or any prime indices of the parts.

Original entry on oeis.org

1, 3, 5, 7, 9, 11, 13, 17, 19, 21, 23, 25, 27, 29, 31, 33, 35, 37, 41, 43, 47, 49, 51, 53, 57, 59, 61, 63, 65, 67, 71, 73, 77, 79, 81, 83, 85, 87, 89, 91, 93, 95, 97, 99, 101, 103, 107, 109, 113, 115, 121, 123, 125, 127, 129, 131, 133, 137, 139, 143, 147, 149
Offset: 1

Views

Author

Gus Wiseman, Mar 17 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. The Heinz number of an integer partition (y_1, ..., y_k) is prime(y_1) * ... * prime(y_k).

Examples

			The sequence of terms together with their prime indices begins:
   1: {}
   3: {2}
   5: {3}
   7: {4}
   9: {2,2}
  11: {5}
  13: {6}
  17: {7}
  19: {8}
  21: {2,4}
  23: {9}
  25: {3,3}
  27: {2,2,2}
  29: {10}
  31: {11}
  33: {2,5}
  35: {3,4}
  37: {12}
  41: {13}
  43: {14}
		

Crossrefs

The subset version is A324742, with maximal case A324763. The strict integer partition version is A324752. The integer partition version is A324757. An infinite version is A324695.

Programs

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

A324841 Matula-Goebel numbers of fully recursively anti-transitive rooted trees.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 8, 9, 11, 16, 17, 19, 21, 23, 25, 27, 31, 32, 35, 49, 51, 53, 57, 59, 63, 64, 67, 73, 77, 81, 83, 85, 95, 97, 103, 115, 121, 125, 127, 128, 131, 133, 147, 149, 153, 159, 161, 171, 175, 177, 187, 189, 201, 209, 217, 227, 233, 241, 243, 245
Offset: 1

Views

Author

Gus Wiseman, Mar 17 2019

Keywords

Comments

An unlabeled rooted tree is fully recursively anti-transitive if no proper terminal subtree of any terminal subtree is a branch of the larger subtree.

Examples

			The sequence of fully 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))
  11: ((((o))))
  16: (oooo)
  17: (((oo)))
  19: ((ooo))
  21: ((o)(oo))
  23: (((o)(o)))
  25: (((o))((o)))
  27: ((o)(o)(o))
  31: (((((o)))))
  32: (ooooo)
  35: (((o))(oo))
  49: ((oo)(oo))
  51: ((o)((oo)))
  53: ((oooo))
  57: ((o)(ooo))
  59: ((((oo))))
  63: ((o)(o)(oo))
		

Crossrefs

Programs

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

A330952 Number of integer partitions of n whose Heinz number (product of primes of parts) is divisible by all parts.

Original entry on oeis.org

1, 1, 1, 2, 2, 3, 5, 6, 8, 11, 14, 20, 25, 32, 42, 54, 69, 87, 109, 137, 172, 215, 269, 331, 409, 499, 612, 751, 917, 1111, 1344, 1626, 1963, 2359, 2834, 3396, 4065, 4849, 5779, 6865, 8146, 9658, 11424, 13483, 15898, 18710, 21999, 25823, 30272, 35417, 41397
Offset: 0

Views

Author

Gus Wiseman, Jan 15 2020

Keywords

Comments

The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.

Examples

			The a(1) = 1 through a(9) = 11 partitions:
  1  11  21   211   221    321     2221     3221      621
         111  1111  2111   411     3211     4211      3321
                    11111  2211    4111     22211     22221
                           21111   22111    32111     32211
                           111111  211111   41111     42111
                                   1111111  221111    222111
                                            2111111   321111
                                            11111111  411111
                                                      2211111
                                                      21111111
                                                      111111111
		

Crossrefs

The Heinz numbers of these partitions are given by A120383.
Partitions whose product is divisible by their sum are A057568.
Partitions whose Heinz number is divisible by their product are A324925.
Partitions whose Heinz number is divisible by their sum are A330950.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],And@@Table[Divisible[Times@@Prime/@#,i],{i,#}]&]],{n,0,30}]
Previous Showing 21-30 of 31 results. Next