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.

Showing 1-7 of 7 results.

A290689 Number of transitive rooted trees with n nodes.

Original entry on oeis.org

1, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 88, 143, 229, 370, 592, 955, 1527, 2457, 3929, 6304, 10081
Offset: 1

Views

Author

Gus Wiseman, Oct 19 2017

Keywords

Comments

A rooted tree is transitive if every proper terminal subtree is also a branch of the root. First differs from A206139 at a(13) = 143.
Regarding the notation, a rooted tree is a finite multiset of rooted trees. For example, the rooted tree (o(o)(oo)) is short for {{},{{}},{{},{}}}. Each "o" is a leaf. Each pair of parentheses corresponds to a non-leaf node (such as the root). Its contents "(...)" represent a branch. - Gus Wiseman, Nov 16 2024

Examples

			The a(7) = 8 7-node transitive rooted trees are: (o(oooo)), (oo(ooo)), (o(o)((o))), (o(o)(oo)), (ooo(oo)), (oo(o)(o)), (oooo(o)), (oooooo).
		

Crossrefs

The restriction to identity trees (A004111) is A279861, ranks A290760.
These trees are ranked by A290822.
The anti-transitive version is A306844, ranks A324758.
The totally transitive case is A318185 (by leaves A318187), ranks A318186.
A version for integer partitions is A324753, for subsets A324736.
The ordered version is A358453, ranks A358457, undirected A358454.

Programs

  • Mathematica
    nn=18;
    rtall[n_]:=If[n===1,{{}},Module[{cas},Union[Sort/@Join@@(Tuples[rtall/@#]&/@IntegerPartitions[n-1])]]];
    Table[Length[Select[rtall[n],Complement[Union@@#,#]==={}&]],{n,nn}]

Extensions

a(20) from Robert Price, Sep 13 2018
a(21)-a(22) from Robert P. P. McKone, Dec 16 2023

A324764 Number of anti-transitive rooted identity trees with n nodes.

Original entry on oeis.org

1, 1, 1, 1, 3, 4, 9, 20, 41, 89, 196, 443, 987, 2246, 5114, 11757, 27122, 62898, 146392, 342204, 802429, 1887882
Offset: 1

Views

Author

Gus Wiseman, Mar 17 2019

Keywords

Comments

A rooted identity tree is an unlabeled rooted tree with no repeated branches directly under the same root. It is anti-transitive if the branches of the branches of the root are disjoint from the branches of the root.
Also the number of finitary sets S with n brackets where no element of an element of S is also an element of S. For example, the a(8) = 20 finitary sets are (o = {}):
{{{{{{{o}}}}}}}
{{{{{o,{o}}}}}}
{{{{o,{{o}}}}}}
{{{o,{{{o}}}}}}
{{{o,{o,{o}}}}}
{{{{o},{{o}}}}}
{{o,{{{{o}}}}}}
{{o,{{o,{o}}}}}
{{o,{o,{{o}}}}}
{{{o},{{{o}}}}}
{{{o},{o,{o}}}}
{{o,{o},{{o}}}}
{o,{{{{{o}}}}}}
{o,{{{o,{o}}}}}
{o,{{o,{{o}}}}}
{o,{{o},{{o}}}}
{{o},{{{{o}}}}}
{{o},{{o,{o}}}}
{{o},{o,{{o}}}}
{{{o}},{o,{o}}}

Examples

			The a(1) = 1 through a(7) = 9 anti-transitive rooted identity trees:
  o  (o)  ((o))  (((o)))  ((o(o)))   (((o(o))))   ((o(o(o))))
                          (o((o)))   ((o((o))))   (o((o(o))))
                          ((((o))))  (o(((o))))   ((((o(o)))))
                                     (((((o)))))  (((o)((o))))
                                                  (((o((o)))))
                                                  ((o)(((o))))
                                                  ((o(((o)))))
                                                  (o((((o)))))
                                                  ((((((o))))))
		

Crossrefs

Programs

  • Mathematica
    idall[n_]:=If[n==1,{{}},Select[Union[Sort/@Join@@(Tuples[idall/@#]&/@IntegerPartitions[n-1])],UnsameQ@@#&]];
    Table[Length[Select[idall[n],Intersection[Union@@#,#]=={}&]],{n,10}]

Extensions

a(21)-a(22) from Jinyuan Wang, Jun 20 2020

A324840 Number of fully recursively anti-transitive rooted trees with n nodes.

Original entry on oeis.org

1, 1, 2, 3, 5, 7, 14, 23, 46, 85, 165, 313, 625, 1225, 2459, 4919, 9928, 20078, 40926, 83592
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 a(1) = 1 through a(7) = 14 fully recursively anti-transitive rooted trees:
  o  (o)  (oo)   (ooo)    (oooo)     (ooooo)      (oooooo)
          ((o))  ((oo))   ((ooo))    ((oooo))     ((ooooo))
                 (((o)))  (((oo)))   (((ooo)))    (((oooo)))
                          ((o)(o))   ((o)(oo))    ((o)(ooo))
                          ((((o))))  ((((oo))))   ((oo)(oo))
                                     (((o)(o)))   ((((ooo))))
                                     (((((o)))))  (((o))(oo))
                                                  (((o)(oo)))
                                                  ((o)((oo)))
                                                  ((o)(o)(o))
                                                  (((((oo)))))
                                                  ((((o)(o))))
                                                  (((o))((o)))
                                                  ((((((o))))))
		

Crossrefs

Programs

  • Mathematica
    dallt[n_]:=Select[Union[Sort/@Join@@(Tuples[dallt/@#]&/@IntegerPartitions[n-1])],Intersection[Union@@Rest[FixedPointList[Union@@#&,#]],#]=={}&];
    Table[Length[dallt[n]],{n,10}]

A324768 Number of fully anti-transitive rooted trees with n nodes.

Original entry on oeis.org

1, 1, 2, 3, 6, 11, 27, 60, 152, 376, 968, 2492, 6549, 17259, 46000, 123214, 332304, 900406, 2451999, 6703925
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 a(1) = 1 through a(6) = 11 rooted trees:
  o  (o)  (oo)   (ooo)    (oooo)     (ooooo)
          ((o))  ((oo))   ((ooo))    ((oooo))
                 (((o)))  (((oo)))   (((ooo)))
                          ((o)(o))   ((o)(oo))
                          ((o(o)))   ((o(oo)))
                          ((((o))))  ((oo(o)))
                                     ((((oo))))
                                     (((o)(o)))
                                     (((o(o))))
                                     ((o((o))))
                                     (((((o)))))
		

Crossrefs

Programs

  • Mathematica
    rtall[n_]:=Union[Sort/@Join@@(Tuples[rtall/@#]&/@IntegerPartitions[n-1])];
    Table[Length[Select[rtall[n],Intersection[Union@@Rest[FixedPointList[Union@@#&,#]],#]=={}&]],{n,10}]

Extensions

a(17)-a(20) from Jinyuan Wang, Jun 20 2020

A324767 Number of recursively anti-transitive rooted identity trees with n nodes.

Original entry on oeis.org

1, 1, 1, 1, 2, 3, 5, 9, 17, 33, 63, 126, 254, 511, 1039, 2124, 4371, 9059, 18839, 39339, 82385, 173111, 364829, 771010, 1633313
Offset: 1

Views

Author

Gus Wiseman, Mar 17 2019

Keywords

Comments

An unlabeled rooted tree is recursively anti-transitive if no branch of a branch of any terminal subtree is a branch of the same subtree. It is an identity tree if there are no repeated branches directly under a common root.
Also the number of finitary sets with n brackets where, at any level, no element of an element of a set is an element of the same set. For example, the a(8) = 9 finitary sets are (o = {}):
{{{{{{{o}}}}}}}
{{{{o,{{o}}}}}}
{{{o,{{{o}}}}}}
{{o,{{{{o}}}}}}
{{{o},{{{o}}}}}
{o,{{{{{o}}}}}}
{o,{{o,{{o}}}}}
{{o},{{{{o}}}}}
{{o},{o,{{o}}}}
The Matula-Goebel numbers of these trees are given by A324766.

Examples

			The a(4) = 1 through a(8) = 9 recursively anti-transitive rooted identity trees:
  (((o)))  (o((o)))   ((o((o))))   (((o((o)))))   ((o)(o((o))))
           ((((o))))  (o(((o))))   ((o)(((o))))   (o((o((o)))))
                      (((((o)))))  ((o(((o)))))   ((((o((o))))))
                                   (o((((o)))))   (((o)(((o)))))
                                   ((((((o))))))  (((o(((o))))))
                                                  ((o)((((o)))))
                                                  ((o((((o))))))
                                                  (o(((((o))))))
                                                  (((((((o)))))))
		

Crossrefs

Cf. A324695, A324751, A324758, A324764 (non-recursive version), A324765 (non-identity version), A324766, A324770, A324839, A324840, A324844.

Programs

  • Mathematica
    iallt[n_]:=Select[Union[Sort/@Join@@(Tuples[iallt/@#]&/@IntegerPartitions[n-1])],UnsameQ@@#&&Intersection[Union@@#,#]=={}&];
    Table[Length[iallt[n]],{n,10}]

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]

A324839 Number of unlabeled rooted identity trees with n nodes where the branches of no branch of the root form a subset of the branches of the root.

Original entry on oeis.org

1, 0, 1, 1, 2, 3, 8, 16, 35, 74, 166, 367, 831, 1878, 4299, 9857, 22775, 52777, 122957, 287337
Offset: 1

Views

Author

Gus Wiseman, Mar 18 2019

Keywords

Comments

An unlabeled rooted tree is an identity tree if there are no repeated branches directly under the same root.
Also the number of finitary sets with n brackets where no element is also a subset. For example, the a(7) = 8 sets are (o = {}):
{{{{{{o}}}}}}
{{{{o,{o}}}}}
{{{o,{{o}}}}}
{{o,{{{o}}}}}
{{o,{o,{o}}}}
{{{o},{{o}}}}
{{o},{{{o}}}}
{{o},{o,{o}}}

Examples

			The a(1) = 1 through a(8) = 16 rooted identity trees:
  o  ((o))  (((o)))  ((o(o)))   (((o(o))))   ((o)(o(o)))    (((o))(o(o)))
                     ((((o))))  ((o((o))))   ((o(o(o))))    (((o)(o(o))))
                                (((((o)))))  ((((o(o)))))   (((o(o(o)))))
                                             (((o)((o))))   ((o)((o(o))))
                                             (((o((o)))))   ((o)(o((o))))
                                             ((o)(((o))))   ((o((o(o)))))
                                             ((o(((o)))))   ((o(o)((o))))
                                             ((((((o))))))  ((o(o((o)))))
                                                            (((((o(o))))))
                                                            ((((o)((o)))))
                                                            ((((o((o))))))
                                                            (((o)(((o)))))
                                                            (((o(((o))))))
                                                            ((o)((((o)))))
                                                            ((o((((o))))))
                                                            (((((((o)))))))
		

Crossrefs

Programs

  • Mathematica
    idall[n_]:=If[n==1,{{}},Select[Union[Sort/@Join@@(Tuples[idall/@#]&/@IntegerPartitions[n-1])],UnsameQ@@#&]];
    Table[Length[Select[idall[n],And@@Table[!SubsetQ[#,b],{b,#}]&]],{n,10}]
Showing 1-7 of 7 results.