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-10 of 10 results.

A050381 Number of series-reduced planted trees with n leaves of 2 colors.

Original entry on oeis.org

2, 3, 10, 40, 170, 785, 3770, 18805, 96180, 502381, 2667034, 14351775, 78096654, 429025553, 2376075922, 13252492311, 74372374366, 419651663108, 2379399524742, 13549601275893, 77460249369658, 444389519874841
Offset: 1

Views

Author

Christian G. Bower, Nov 15 1999

Keywords

Comments

Consider the free algebraic system with two commutative associative operators (x+y) and (x*y) and two generators A,B. The number of elements with n occurrences of the generators is 2*a(n) if n>1, and the number of generators if n=1. - Michael Somos, Aug 07 2017
From Gus Wiseman, Feb 07 2020: (Start)
Also the number of semi-lone-child-avoiding rooted trees with n leaves. Semi-lone-child-avoiding means there are no vertices with exactly one child unless that child is an endpoint/leaf. For example, the a(1) = 2 through a(3) = 10 trees are:
o (oo) (ooo)
(o) (o(o)) (o(oo))
((o)(o)) (oo(o))
((o)(oo))
(o(o)(o))
(o(o(o)))
((o)(o)(o))
((o)(o(o)))
(o((o)(o)))
((o)((o)(o)))
(End)

Examples

			For n=2, the 2*a(2) = 6 elements are: A+A, A+B, B+B, A*A, A*B, B*B. - _Michael Somos_, Aug 07 2017
		

Crossrefs

Column 2 of A319254.
Lone-child-avoiding rooted trees with n leaves are A000669.
Lone-child-avoiding rooted trees with n vertices are A001678.
The locally disjoint case is A331874.
Semi-lone-child-avoiding rooted trees with n vertices are A331934.
Matula-Goebel numbers of these trees are A331935.

Programs

  • Mathematica
    terms = 22;
    B[x_] = x O[x]^(terms+1);
    A[x_] = 1/(1 - x + B[x])^2;
    Do[A[x_] = A[x]/(1 - x^k + B[x])^Coefficient[A[x], x, k] + O[x]^(terms+1) // Normal, {k, 2, terms+1}];
    Join[{2}, Drop[CoefficientList[A[x], x]/2, 2]] (* Jean-François Alcover, Aug 17 2018, after Michael Somos *)
    slaurte[n_]:=If[n==1,{o,{o}},Join@@Table[Union[Sort/@Tuples[slaurte/@ptn]],{ptn,Rest[IntegerPartitions[n]]}]];
    Table[Length[slaurte[n]],{n,10}] (* Gus Wiseman, Feb 07 2020 *)
  • PARI
    {a(n) = my(A, B); if( n<2, 2*(n>0), B = x * O(x^n); A = 1 / (1 - x + B)^2; for(k=2, n, A /= (1 - x^k + B)^polcoeff(A, k)); polcoeff(A, n)/2)}; /* Michael Somos, Aug 07 2017 */

Formula

Doubles (index 2+) under EULER transform.
Product_{k>=1} (1-x^k)^-a(k) = 1 + a(1)*x + Sum_{k>=2} 2*a(k)*x^k. - Michael Somos, Aug 07 2017
a(n) ~ c * d^n / n^(3/2), where d = 6.158893517087396289837838459951206775682824030495453326610366016992093939... and c = 0.1914250508201011360729769525164141605187995730026600722369002... - Vaclav Kotesovec, Aug 17 2018

A331934 Number of semi-lone-child-avoiding rooted trees with n unlabeled vertices.

Original entry on oeis.org

1, 1, 1, 2, 4, 7, 15, 29, 62, 129, 279, 602, 1326, 2928, 6544, 14692, 33233, 75512, 172506, 395633, 911108, 2105261, 4880535, 11346694, 26451357, 61813588, 144781303, 339820852, 799168292, 1882845298, 4443543279, 10503486112, 24864797324, 58944602767, 139918663784
Offset: 1

Views

Author

Gus Wiseman, Feb 03 2020

Keywords

Comments

A rooted tree is semi-lone-child-avoiding if there are no vertices with exactly one child unless the child is an endpoint/leaf.

Examples

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

Crossrefs

The same trees counted by leaves are A050381.
The locally disjoint version is A331872.
Matula-Goebel numbers of these trees are A331935.
Lone-child-avoiding rooted trees are A001678.

Programs

  • Mathematica
    sse[n_]:=Switch[n,1,{{}},2,{{{}}},_,Join@@Function[c,Union[Sort/@Tuples[sse/@c]]]/@Rest[IntegerPartitions[n-1]]];
    Table[Length[sse[n]],{n,10}]
  • PARI
    EulerT(v)={Vec(exp(x*Ser(dirmul(v,vector(#v,n,1/n))))-1, -#v)}
    seq(n)={my(v=[1,1]); for(n=2, n-1, v=concat(v, EulerT(v)[n] - v[n])); v} \\ Andrew Howroyd, Feb 09 2020

Formula

Product_{k > 0} 1/(1 - x^k)^a(k) = A(x) + A(x)/x - x where A(x) = Sum_{k > 0} x^k a(k).
Euler transform is b(1) = 1, b(n > 1) = a(n) + a(n + 1).

Extensions

Terms a(25) and beyond from Andrew Howroyd, Feb 09 2020

A316694 Number of lone-child-avoiding locally disjoint rooted identity trees whose leaves form an integer partition of n.

Original entry on oeis.org

1, 1, 2, 3, 6, 13, 28, 62, 143, 338, 804, 1948, 4789, 11886, 29796, 75316, 191702, 491040, 1264926, 3274594, 8514784, 22229481, 58243870
Offset: 1

Views

Author

Gus Wiseman, Jul 10 2018

Keywords

Comments

A rooted tree is lone-child-avoiding if every non-leaf node has at least two branches. It is locally disjoint if no branch overlaps any other (unequal) branch of the same root. It is an identity tree if no branch appears multiple times under the same root.

Examples

			The a(7) = 28 rooted trees:
  7,
  (16),
  (25),
  (1(15)),
  (34),
  (1(24)), (2(14)), (4(12)), (124),
  (1(1(14))),
  (3(13)),
  (2(23)),
  (1(1(23))), (1(2(13))), (1(3(12))), (1(123)), (2(1(13))), (3(1(12))), (12(13)), (13(12)),
  (1(1(1(13)))),
  (2(2(12))),
  (1(1(2(12)))), (1(2(1(12)))), (1(12(12))), (2(1(1(12)))), (12(1(12))),
  (1(1(1(1(12))))).
Missing from this list but counted by A300660 are ((12)(13)) and ((12)(1(12))).
		

Crossrefs

The semi-identity tree version is A212804.
Not requiring local disjointness gives A300660.
The non-identity tree version is A316696.
This is the case of A331686 where all leaves are singletons.
Rooted identity trees are A004111.
Locally disjoint rooted identity trees are A316471.
Lone-child-avoiding locally disjoint rooted trees are A331680.
Locally disjoint enriched identity p-trees are A331684.

Programs

  • Mathematica
    disjointQ[u_]:=Apply[And,Outer[#1==#2||Intersection[#1,#2]=={}&,u,u,1],{0,1}];
    nms[n_]:=nms[n]=Prepend[Join@@Table[Select[Union[Sort/@Tuples[nms/@ptn]],And[UnsameQ@@#,disjointQ[#]]&],{ptn,Rest[IntegerPartitions[n]]}],{n}];
    Table[Length[nms[n]],{n,10}]

Extensions

a(21)-a(23) from Robert Price, Sep 16 2018
Updated with corrected terminology by Gus Wiseman, Feb 06 2020

A331935 Matula-Goebel numbers of semi-lone-child-avoiding rooted trees.

Original entry on oeis.org

1, 2, 4, 6, 8, 9, 12, 14, 16, 18, 21, 24, 26, 27, 28, 32, 36, 38, 39, 42, 46, 48, 49, 52, 54, 56, 57, 63, 64, 69, 72, 74, 76, 78, 81, 84, 86, 91, 92, 96, 98, 104, 106, 108, 111, 112, 114, 117, 122, 126, 128, 129, 133, 138, 144, 146, 147, 148, 152, 156, 159
Offset: 1

Views

Author

Gus Wiseman, Feb 03 2020

Keywords

Comments

A rooted tree is semi-lone-child-avoiding if there are no vertices with exactly one child unless the child is an endpoint/leaf.
The Matula-Goebel number of a rooted tree is the product of primes indexed by the Matula-Goebel numbers of the branches of its root, which gives a bijective correspondence between positive integers and unlabeled rooted trees.
Consists of one, two, and all nonprime numbers whose prime indices already belong to the sequence, where a prime index of n is a number m such that prime(m) divides n.

Examples

			The sequence of all semi-lone-child-avoiding rooted trees together with their Matula-Goebel numbers begins:
   1: o
   2: (o)
   4: (oo)
   6: (o(o))
   8: (ooo)
   9: ((o)(o))
  12: (oo(o))
  14: (o(oo))
  16: (oooo)
  18: (o(o)(o))
  21: ((o)(oo))
  24: (ooo(o))
  26: (o(o(o)))
  27: ((o)(o)(o))
  28: (oo(oo))
  32: (ooooo)
  36: (oo(o)(o))
  38: (o(ooo))
  39: ((o)(o(o)))
  42: (o(o)(oo))
The sequence of terms together with their prime indices begins:
    1: {}              46: {1,9}             98: {1,4,4}
    2: {1}             48: {1,1,1,1,2}      104: {1,1,1,6}
    4: {1,1}           49: {4,4}            106: {1,16}
    6: {1,2}           52: {1,1,6}          108: {1,1,2,2,2}
    8: {1,1,1}         54: {1,2,2,2}        111: {2,12}
    9: {2,2}           56: {1,1,1,4}        112: {1,1,1,1,4}
   12: {1,1,2}         57: {2,8}            114: {1,2,8}
   14: {1,4}           63: {2,2,4}          117: {2,2,6}
   16: {1,1,1,1}       64: {1,1,1,1,1,1}    122: {1,18}
   18: {1,2,2}         69: {2,9}            126: {1,2,2,4}
   21: {2,4}           72: {1,1,1,2,2}      128: {1,1,1,1,1,1,1}
   24: {1,1,1,2}       74: {1,12}           129: {2,14}
   26: {1,6}           76: {1,1,8}          133: {4,8}
   27: {2,2,2}         78: {1,2,6}          138: {1,2,9}
   28: {1,1,4}         81: {2,2,2,2}        144: {1,1,1,1,2,2}
   32: {1,1,1,1,1}     84: {1,1,2,4}        146: {1,21}
   36: {1,1,2,2}       86: {1,14}           147: {2,4,4}
   38: {1,8}           91: {4,6}            148: {1,1,12}
   39: {2,6}           92: {1,1,9}          152: {1,1,1,8}
   42: {1,2,4}         96: {1,1,1,1,1,2}    156: {1,1,2,6}
		

Crossrefs

The enumeration of these trees by leaves is A050381.
The locally disjoint version A331873.
The enumeration of these trees by nodes is A331934.
The case with at most one distinct non-leaf branch of any vertex is A331936.
Lone-child-avoiding rooted trees are counted by A001678.
Matula-Goebel numbers of lone-child-avoiding rooted trees are A291636.

Programs

  • Mathematica
    mseQ[n_]:=n==1||n==2||!PrimeQ[n]&&And@@mseQ/@PrimePi/@First/@FactorInteger[n];
    Select[Range[100],mseQ]

A331686 Number of lone-child-avoiding locally disjoint rooted identity trees whose leaves are integer partitions whose multiset union is an integer partition of n.

Original entry on oeis.org

1, 2, 4, 8, 17, 41, 103, 280, 793, 2330, 6979, 21291
Offset: 1

Views

Author

Gus Wiseman, Jan 31 2020

Keywords

Comments

A rooted tree is locally disjoint if no child of any vertex has branches overlapping the branches of any other (unequal) child of the same vertex. Lone-child-avoiding means there are no unary branchings. In an identity tree, all branches of any given vertex are distinct.

Examples

			The a(1) = 1 through a(5) = 17 trees:
  (1)  (2)   (3)       (4)            (5)
       (11)  (12)      (13)           (14)
             (111)     (22)           (23)
             ((1)(2))  (112)          (113)
                       (1111)         (122)
                       ((1)(3))       (1112)
                       ((2)(11))      (11111)
                       ((1)((1)(2)))  ((1)(4))
                                      ((2)(3))
                                      ((1)(22))
                                      ((3)(11))
                                      ((2)(111))
                                      ((1)((1)(3)))
                                      ((2)((1)(2)))
                                      ((11)((1)(2)))
                                      ((1)((2)(11)))
                                      ((1)((1)((1)(2))))
		

Crossrefs

The non-identity version is A331678.
The case where the leaves are all singletons is A316694.
Identity trees are A004111.
Locally disjoint identity trees are A316471.
Locally disjoint enriched identity p-trees are A331684.
Lone-child-avoiding locally disjoint rooted semi-identity trees are A212804.

Programs

  • Mathematica
    sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
    mps[set_]:=Union[Sort[Sort/@(#/.x_Integer:>set[[x]])]&/@sps[Range[Length[set]]]];
    disjointQ[u_]:=Apply[And,Outer[#1==#2||Intersection[#1,#2]=={}&,u,u,1],{0,1}];
    mpti[m_]:=Prepend[Join@@Table[Select[Union[Sort/@Tuples[mpti/@p]],UnsameQ@@#&&disjointQ[#]&],{p,Select[mps[m],Length[#]>1&]}],m];
    Table[Sum[Length[mpti[m]],{m,Sort/@IntegerPartitions[n]}],{n,8}]

A331873 Matula-Goebel numbers of semi-lone-child-avoiding locally disjoint rooted trees.

Original entry on oeis.org

1, 2, 4, 6, 8, 9, 12, 14, 16, 18, 24, 26, 27, 28, 32, 36, 38, 46, 48, 49, 52, 54, 56, 64, 69, 72, 74, 76, 81, 86, 92, 96, 98, 104, 106, 108, 112, 122, 128, 138, 144, 148, 152, 161, 162, 169, 172, 178, 184, 192, 196, 202, 206, 207, 208, 212, 214, 216, 224, 243
Offset: 1

Views

Author

Gus Wiseman, Feb 02 2020

Keywords

Comments

First differs from A331936 in having 69, the Matula-Goebel number of the tree ((o)((o)(o))).
A rooted tree is semi-lone-child-avoiding if there are no vertices with exactly one child unless the child is an endpoint/leaf.
Locally disjoint means no child of any vertex has branches overlapping the branches of any other (inequivalent) child of the same vertex.
The Matula-Goebel number of a rooted tree is the product of primes indexed by the Matula-Goebel numbers of the branches of its root, which gives a bijective correspondence between positive integers and unlabeled rooted trees.
Consists of one, two, and all nonprime numbers whose distinct prime indices are pairwise coprime and already belong to the sequence, where a singleton is always considered to be pairwise coprime. A prime index of n is a number m such that prime(m) divides n.

Examples

			The sequence of all semi-lone-child-avoiding locally disjoint rooted trees together with their Matula-Goebel numbers begins:
   1: o
   2: (o)
   4: (oo)
   6: (o(o))
   8: (ooo)
   9: ((o)(o))
  12: (oo(o))
  14: (o(oo))
  16: (oooo)
  18: (o(o)(o))
  24: (ooo(o))
  26: (o(o(o)))
  27: ((o)(o)(o))
  28: (oo(oo))
  32: (ooooo)
  36: (oo(o)(o))
  38: (o(ooo))
  46: (o((o)(o)))
  48: (oooo(o))
  49: ((oo)(oo))
		

Crossrefs

Not requiring lone-child-avoidance gives A316495.
A superset of A320269.
The semi-identity tree case is A331681.
The non-semi version (i.e., not containing 2) is A331871.
These trees counted by vertices are A331872.
These trees counted by leaves are A331874.
Not requiring local disjointness gives A331935.
The identity tree case is A331937.

Programs

  • Mathematica
    msQ[n_]:=n==1||n==2||!PrimeQ[n]&&(PrimePowerQ[n]||CoprimeQ@@PrimePi/@First/@FactorInteger[n])&&And@@msQ/@PrimePi/@First/@FactorInteger[n];
    Select[Range[100],msQ]

A316696 Number of lone-child-avoiding locally disjoint rooted trees whose leaves form an integer partition of n.

Original entry on oeis.org

1, 2, 4, 11, 27, 80, 218, 654, 1923, 5924, 18310, 58176, 186341, 606814, 1993420, 6618160, 22134640
Offset: 1

Views

Author

Gus Wiseman, Jul 10 2018

Keywords

Comments

A rooted tree is lone-child-avoiding if every non-leaf node has at least two branches. It is locally disjoint if no branch overlaps any other (unequal) branch of the same root.

Examples

			The a(4) = 11 rooted trees:
  4,
  (13),
  (22),
  (1(12)), (2(11)), (112),
  (1(1(11))), (1(111)), ((11)(11)), (11(11)), (1111).
		

Crossrefs

Matula-Goebel numbers of locally disjoint rooted trees are A316495.
The case where all leaves are 1's is A316697.
Lone-child-avoiding locally disjoint rooted trees are A331680.

Programs

  • Mathematica
    disjointQ[u_]:=Apply[And,Outer[#1==#2||Intersection[#1,#2]=={}&,u,u,1],{0,1}];
    nms[n_]:=nms[n]=Prepend[Join@@Table[Select[Union[Sort/@Tuples[nms/@ptn]],disjointQ],{ptn,Rest[IntegerPartitions[n]]}],{n}];
    Table[Length[nms[n]],{n,10}]

Extensions

a(16)-a(17) from Robert Price, Sep 16 2018
Terminology corrected by Gus Wiseman, Feb 06 2020

A331872 Number of semi-lone-child-avoiding locally disjoint rooted trees with n vertices.

Original entry on oeis.org

1, 1, 1, 2, 4, 6, 12, 19, 35, 59, 104, 179, 318, 556, 993, 1772, 3202, 5807, 10643, 19594, 36380, 67915
Offset: 1

Views

Author

Gus Wiseman, Feb 02 2020

Keywords

Comments

A rooted tree is semi-lone-child-avoiding if there are no vertices with exactly one child unless the child is an endpoint/leaf.
Locally disjoint means no child of any vertex has branches overlapping the branches of any other (inequivalent) child of the same vertex.

Examples

			The a(1) = 1 through a(8) = 19 trees:
  o  (o)  (oo)  (ooo)   (oooo)    (ooooo)    (oooooo)     (ooooooo)
                (o(o))  (o(oo))   (o(ooo))   (o(oooo))    (o(ooooo))
                        (oo(o))   (oo(oo))   (oo(ooo))    (oo(oooo))
                        ((o)(o))  (ooo(o))   (ooo(oo))    (ooo(ooo))
                                  (o(o)(o))  (oooo(o))    (oooo(oo))
                                  (o(o(o)))  ((oo)(oo))   (ooooo(o))
                                             (o(o(oo)))   (o(o(ooo)))
                                             (o(oo(o)))   (o(oo)(oo))
                                             (oo(o)(o))   (o(oo(oo)))
                                             (oo(o(o)))   (o(ooo(o)))
                                             ((o)(o)(o))  (oo(o(oo)))
                                             (o((o)(o)))  (oo(oo(o)))
                                                          (ooo(o)(o))
                                                          (ooo(o(o)))
                                                          (o(o)(o)(o))
                                                          (o(o(o)(o)))
                                                          (o(o(o(o))))
                                                          (oo((o)(o)))
                                                          ((o)((o)(o)))
		

Crossrefs

Not requiring lone-child-avoidance gives A316473.
The non-semi version is A331680.
The Matula-Goebel numbers of these trees are A331873.
The same trees counted by number of leaves are A331874.
Not requiring local disjointness gives A331934.
Lone-child-avoiding rooted trees are A001678.

Programs

  • Mathematica
    disjointQ[u_]:=Apply[And,Outer[#1==#2||Intersection[#1,#2]=={}&,u,u,1],{0,1}];
    strutsemi[n_]:=If[n==1,{{}},If[n==2,{{{}}},Select[Join@@Function[c,Union[Sort/@Tuples[strutsemi/@c]]]/@Rest[IntegerPartitions[n-1]],disjointQ]]];
    Table[Length[strutsemi[n]],{n,8}]

A331687 Number of locally disjoint enriched p-trees of weight n.

Original entry on oeis.org

1, 2, 4, 12, 29, 93, 249, 803, 2337, 7480, 23130, 77372, 247598, 834507, 2762222
Offset: 1

Views

Author

Gus Wiseman, Jan 31 2020

Keywords

Comments

A locally disjoint enriched p-tree of weight n is either the number n itself or a finite sequence of non-overlapping locally disjoint enriched p-trees whose weights are weakly decreasing and sum to n.

Examples

			The a(1) = 1 through a(4) = 12 enriched p-trees:
  1  2     3        4
     (11)  (21)     (22)
           (111)    (31)
           ((11)1)  (211)
                    (1111)
                    ((11)2)
                    ((21)1)
                    (2(11))
                    ((11)11)
                    ((111)1)
                    (((11)1)1)
                    ((11)(11))
		

Crossrefs

The orderless version is A316696.
The identity case is A331684.
P-trees are A196545.
Enriched p-trees are A289501.
Locally disjoint identity trees are A316471.
Enriched identity p-trees are A331875.

Programs

  • Mathematica
    disjointQ[u_]:=Apply[And,Outer[#1==#2||Intersection[#1,#2]=={}&,u,u,1],{0,1}];
    ldep[n_]:=Prepend[Select[Join@@Table[Tuples[ldep/@p],{p,Rest[IntegerPartitions[n]]}],disjointQ[DeleteCases[#,_Integer]]&],n];
    Table[Length[ldep[n]],{n,10}]

A331684 Number of locally disjoint enriched identity p-trees of weight n.

Original entry on oeis.org

1, 1, 2, 3, 6, 14, 30, 68, 157, 379, 901, 2229, 5488, 13846, 34801, 89368, 228186, 592943, 1533511, 4026833
Offset: 1

Views

Author

Gus Wiseman, Jan 31 2020

Keywords

Comments

A locally disjoint enriched identity p-tree of weight n is either the number n itself or a finite sequence of distinct non-overlapping locally disjoint enriched identity p-trees whose weights are weakly decreasing and sum to n.

Examples

			The a(1) = 1 through a(6) = 14 enriched p-trees:
  1  2  3     4        5           6
        (21)  (31)     (32)        (42)
              ((21)1)  (41)        (51)
                       ((21)2)     (321)
                       ((31)1)     ((21)3)
                       (((21)1)1)  ((31)2)
                                   ((32)1)
                                   (3(21))
                                   ((41)1)
                                   ((21)21)
                                   (((21)1)2)
                                   (((21)2)1)
                                   (((31)1)1)
                                   ((((21)1)1)1)
		

Crossrefs

The orderless version is A316694.
The non-identity version is A331687.
Identity trees are A004111.
P-trees are A196545.
Enriched p-trees are A289501.
Locally disjoint identity trees are A316471.
Enriched identity p-trees are A331875, with locally disjoint case A331687.

Programs

  • Mathematica
    disjointQ[u_]:=Apply[And,Outer[#1==#2||Intersection[#1,#2]=={}&,u,u,1],{0,1}];
    ldeip[n_]:=Prepend[Select[Join@@Table[Tuples[ldeip/@p],{p,Rest[IntegerPartitions[n]]}],UnsameQ@@#&&disjointQ[DeleteCases[#,_Integer]]&],n];
    Table[Length[ldeip[n]],{n,12}]
Showing 1-10 of 10 results.