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

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

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]

A331912 Lexicographically earliest sequence of positive integers that have at most one distinct prime index already in the sequence.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 8, 9, 11, 13, 16, 17, 19, 23, 25, 26, 27, 29, 31, 32, 37, 39, 41, 43, 47, 49, 52, 53, 58, 59, 61, 64, 65, 67, 71, 73, 74, 79, 81, 83, 86, 87, 89, 91, 94, 97, 101, 103, 104, 107, 109, 111, 113, 116, 117, 121, 122, 125, 127, 128, 129, 131, 137
Offset: 1

Views

Author

Gus Wiseman, Feb 01 2020

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.
Conjecture: a(n)/A331784(n) -> 1 as n -> infinity.

Examples

			The sequence of terms together with their prime indices begins:
    1: {}              37: {12}              86: {1,14}
    2: {1}             39: {2,6}             87: {2,10}
    3: {2}             41: {13}              89: {24}
    4: {1,1}           43: {14}              91: {4,6}
    5: {3}             47: {15}              94: {1,15}
    7: {4}             49: {4,4}             97: {25}
    8: {1,1,1}         52: {1,1,6}          101: {26}
    9: {2,2}           53: {16}             103: {27}
   11: {5}             58: {1,10}           104: {1,1,1,6}
   13: {6}             59: {17}             107: {28}
   16: {1,1,1,1}       61: {18}             109: {29}
   17: {7}             64: {1,1,1,1,1,1}    111: {2,12}
   19: {8}             65: {3,6}            113: {30}
   23: {9}             67: {19}             116: {1,1,10}
   25: {3,3}           71: {20}             117: {2,2,6}
   26: {1,6}           73: {21}             121: {5,5}
   27: {2,2,2}         74: {1,12}           122: {1,18}
   29: {10}            79: {22}             125: {3,3,3}
   31: {11}            81: {2,2,2,2}        127: {31}
   32: {1,1,1,1,1}     83: {23}             128: {1,1,1,1,1,1,1}
For example, the prime indices of 117 are {2,2,6}, of which only 2 is already in the sequence, so 117 is in the sequence.
		

Crossrefs

Contains all prime powers A000961.
Numbers S without all prime indices in S are A324694.
Numbers S without any prime indices in S are A324695.
Numbers S with at most one prime index in S are A331784.
Numbers S with exactly one prime index in S are A331785.
Numbers S with exactly one distinct prime index in S are A331913.

Programs

  • Mathematica
    aQ[n_]:=Length[Select[PrimePi/@First/@If[n==1,{},FactorInteger[n]],aQ]]<=1;
    Select[Range[100],aQ]

A331936 Matula-Goebel numbers of semi-lone-child-avoiding rooted trees with at most one distinct non-leaf branch directly under any vertex (semi-achirality).

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, 72, 74, 76, 81, 86, 92, 96, 98, 104, 106, 108, 112, 122, 128, 144, 148, 152, 162, 169, 172, 178, 184, 192, 196, 202, 206, 208, 212, 214, 216, 224, 243, 244, 256, 262, 288
Offset: 1

Views

Author

Gus Wiseman, Feb 03 2020

Keywords

Comments

First differs from A331873 in lacking 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 that 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 1, 2, and all numbers equal to a power of 2 (other than 1) times a power of prime(j) for some j > 1 already in the sequence.

Examples

			The sequence of rooted trees ranked by this sequence 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))
The sequence of terms together with their prime indices begins:
    1: {}              52: {1,1,6}            152: {1,1,1,8}
    2: {1}             54: {1,2,2,2}          162: {1,2,2,2,2}
    4: {1,1}           56: {1,1,1,4}          169: {6,6}
    6: {1,2}           64: {1,1,1,1,1,1}      172: {1,1,14}
    8: {1,1,1}         72: {1,1,1,2,2}        178: {1,24}
    9: {2,2}           74: {1,12}             184: {1,1,1,9}
   12: {1,1,2}         76: {1,1,8}            192: {1,1,1,1,1,1,2}
   14: {1,4}           81: {2,2,2,2}          196: {1,1,4,4}
   16: {1,1,1,1}       86: {1,14}             202: {1,26}
   18: {1,2,2}         92: {1,1,9}            206: {1,27}
   24: {1,1,1,2}       96: {1,1,1,1,1,2}      208: {1,1,1,1,6}
   26: {1,6}           98: {1,4,4}            212: {1,1,16}
   27: {2,2,2}        104: {1,1,1,6}          214: {1,28}
   28: {1,1,4}        106: {1,16}             216: {1,1,1,2,2,2}
   32: {1,1,1,1,1}    108: {1,1,2,2,2}        224: {1,1,1,1,1,4}
   36: {1,1,2,2}      112: {1,1,1,1,4}        243: {2,2,2,2,2}
   38: {1,8}          122: {1,18}             244: {1,1,18}
   46: {1,9}          128: {1,1,1,1,1,1,1}    256: {1,1,1,1,1,1,1,1}
   48: {1,1,1,1,2}    144: {1,1,1,1,2,2}      262: {1,32}
   49: {4,4}          148: {1,1,12}           288: {1,1,1,1,1,2,2}
		

Crossrefs

A superset of A000079.
The non-lone-child-avoiding version is A320230.
The non-semi version is A320269.
These trees are counted by A331933.
Not requiring semi-achirality gives A331935.
The fully-achiral case is A331992.
Achiral trees are counted by A003238.
Numbers with at most one distinct odd prime factor are A070776.
Matula-Goebel numbers of achiral rooted trees are A214577.
Matula-Goebel numbers of semi-identity trees are A306202.
Numbers S with at most one distinct prime index in S are A331912.

Programs

  • Mathematica
    msQ[n_]:=n<=2||!PrimeQ[n]&&Length[DeleteCases[FactorInteger[n],{2,_}]]<=1&&And@@msQ/@PrimePi/@First/@FactorInteger[n];
    Select[Range[100],msQ]

Formula

Intersection of A320230 and A331935.

A331681 One, two, and all numbers of the form 2^k * prime(j) where k > 0 and j already belongs to the sequence.

Original entry on oeis.org

1, 2, 4, 6, 8, 12, 14, 16, 24, 26, 28, 32, 38, 48, 52, 56, 64, 74, 76, 86, 96, 104, 106, 112, 128, 148, 152, 172, 178, 192, 202, 208, 212, 214, 224, 256, 262, 296, 304, 326, 344, 356, 384, 404, 416, 424, 428, 446, 448, 478, 512, 524, 526, 592, 608, 622, 652
Offset: 1

Views

Author

Gus Wiseman, Jan 26 2020

Keywords

Comments

Also Matula-Goebel numbers of semi-lone-child-avoiding locally disjoint rooted semi-identity trees. 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 branch of any vertex overlaps a different (unequal) branch of the same vertex. In a semi-identity tree, all non-leaf branches of any given vertex are distinct. Note that these conditions together imply that there is at most one non-leaf branch under any given vertex.
Also Matula-Goebel numbers of semi-lone-child-avoiding rooted trees with at most one non-leaf branch under any given vertex.
The Matula-Goebel number of a rooted tree is the product of primes indexed by the Matula-Goebel numbers of its branches (of the root), which gives a bijective correspondence between positive integers and unlabeled rooted trees.

Examples

			The sequence of all semi-lone-child-avoiding rooted trees with at most one non-leaf branch under any given vertex, 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)
  24: (ooo(o))
  26: (o(o(o)))
  28: (oo(oo))
  32: (ooooo)
  38: (o(ooo))
  48: (oooo(o))
  52: (oo(o(o)))
  56: (ooo(oo))
  64: (oooooo)
  74: (o(oo(o)))
  76: (oo(ooo))
  86: (o(o(oo)))
		

Crossrefs

The enumeration of these trees by nodes is A324969 (essentially A000045).
The enumeration of these trees by leaves appears to be A090129(n + 1).
The (non-semi) lone-child-avoiding version is A331683.
Matula-Goebel numbers of rooted semi-identity trees are A306202.
Lone-child-avoiding locally disjoint rooted trees by leaves are A316697.
The set S of numbers with at most one prime index in S is A331784.
Matula-Goebel numbers of locally disjoint rooted trees are A316495.

Programs

  • Maple
    N:= 1000: # for terms <= N
    S:= {1,2}:
    with(queue):
    Q:= new(1,2):
    while not empty(Q) do
      r:= dequeue(Q);
      p:= ithprime(r);
      newS:= {seq(2^i*p,i=1..ilog2(N/p))} minus S;
      S:= S union newS;
      for s in newS do enqueue(Q,s) od:
    od:
    sort(convert(S,list)); # Robert Israel, Feb 05 2020
  • Mathematica
    uryQ[n_]:=n==1||MatchQ[FactorInteger[n],({{2,},{p,1}}/;uryQ[PrimePi[p]])|{{2,_}}];
    Select[Range[100],uryQ]

Formula

Intersection of A306202 (semi-identity), A316495 (locally disjoint), and A331935 (semi-lone-child-avoiding). - Gus Wiseman, Jun 09 2020

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

Original entry on oeis.org

1, 2, 6, 26, 39, 78, 202, 303, 334, 501, 606, 794, 1002, 1191, 1313, 2171, 2382, 2462, 2626, 3693, 3939, 3998, 4342, 4486, 5161, 5997, 6513, 6729, 7162, 7386, 7878, 8914, 10322, 10743, 11994, 12178, 13026, 13371, 13458, 15483, 15866, 16003, 16867, 18267, 19286
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. It is an identity tree if the branches under any given vertex are all distinct.
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 squarefree 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 identity trees together with their Matula-Goebel numbers begins:
    1: o
    2: (o)
    6: (o(o))
   26: (o(o(o)))
   39: ((o)(o(o)))
   78: (o(o)(o(o)))
  202: (o(o(o(o))))
  303: ((o)(o(o(o))))
  334: (o((o)(o(o))))
  501: ((o)((o)(o(o))))
  606: (o(o)(o(o(o))))
  794: (o(o(o)(o(o))))
		

Crossrefs

A subset of A276625 (MG-numbers of identity trees).
Not requiring an identity tree gives A331935.
The locally disjoint version is A331937.
These trees are counted by A331964.
The semi-identity case is A331994.
Matula-Goebel numbers of identity trees are A276625.
Matula-Goebel numbers of lone-child-avoiding rooted semi-identity trees are A331965.

Programs

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

Formula

Intersection of A276625 (identity trees) and A331935 (semi-lone-child-avoiding).

A331784 Lexicographically earliest sequence of positive integers that have at most one prime index already in the sequence, counting multiplicity.

Original entry on oeis.org

1, 2, 3, 5, 7, 11, 13, 14, 17, 19, 21, 23, 26, 29, 31, 35, 37, 38, 39, 41, 43, 46, 47, 49, 53, 57, 58, 59, 61, 65, 67, 69, 71, 73, 74, 77, 79, 83, 87, 89, 91, 94, 95, 97, 98, 101, 103, 106, 107, 109, 111, 113, 115, 119, 122, 127, 131, 133, 137, 139, 141, 142
Offset: 1

Views

Author

Gus Wiseman, Feb 01 2020

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.
Conjecture: A331912(n)/a(n) -> 1 as n -> infinity.

Examples

			The sequence of terms together with their prime indices begins:
    1: {}        43: {14}       91: {4,6}      141: {2,15}
    2: {1}       46: {1,9}      94: {1,15}     142: {1,20}
    3: {2}       47: {15}       95: {3,8}      143: {5,6}
    5: {3}       49: {4,4}      97: {25}       145: {3,10}
    7: {4}       53: {16}       98: {1,4,4}    147: {2,4,4}
   11: {5}       57: {2,8}     101: {26}       149: {35}
   13: {6}       58: {1,10}    103: {27}       151: {36}
   14: {1,4}     59: {17}      106: {1,16}     157: {37}
   17: {7}       61: {18}      107: {28}       158: {1,22}
   19: {8}       65: {3,6}     109: {29}       159: {2,16}
   21: {2,4}     67: {19}      111: {2,12}     161: {4,9}
   23: {9}       69: {2,9}     113: {30}       163: {38}
   26: {1,6}     71: {20}      115: {3,9}      167: {39}
   29: {10}      73: {21}      119: {4,7}      169: {6,6}
   31: {11}      74: {1,12}    122: {1,18}     173: {40}
   35: {3,4}     77: {4,5}     127: {31}       178: {1,24}
   37: {12}      79: {22}      131: {32}       179: {41}
   38: {1,8}     83: {23}      133: {4,8}      181: {42}
   39: {2,6}     87: {2,10}    137: {33}       182: {1,4,6}
   41: {13}      89: {24}      139: {34}       183: {2,18}
For example, the prime indices of 95 are {3,8}, of which only 3 is in the sequence, so 95 is in the sequence.
		

Crossrefs

Contains all prime numbers A000040.
Numbers S without all prime indices in S are A324694.
Numbers S without any prime indices in S are A324695.
Numbers S with exactly one prime index in S are A331785.
Numbers S with at most one distinct prime index in S are A331912.
Numbers S with exactly one distinct prime index in S are A331913.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    aQ[n_]:=Length[Cases[primeMS[n],_?aQ]]<=1;
    Select[Range[100],aQ]

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

A331874 Number of semi-lone-child-avoiding locally disjoint rooted trees with n unlabeled leaves.

Original entry on oeis.org

2, 3, 8, 24, 67, 214, 687, 2406, 8672, 32641, 125431, 493039, 1964611
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) = 2 through a(4) = 24 trees:
  o    (oo)      (ooo)          (oooo)
  (o)  (o(o))    (o(oo))        (o(ooo))
       ((o)(o))  (oo(o))        (oo(oo))
                 (o(o)(o))      (ooo(o))
                 (o(o(o)))      ((oo)(oo))
                 ((o)(o)(o))    (o(o(oo)))
                 (o((o)(o)))    (o(oo(o)))
                 ((o)((o)(o)))  (oo(o)(o))
                                (oo(o(o)))
                                (o(o)(o)(o))
                                (o(o(o)(o)))
                                (o(o(o(o))))
                                (oo((o)(o)))
                                ((o)(o)(o)(o))
                                ((o(o))(o(o)))
                                ((oo)((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

Not requiring local disjointness gives A050381.
The non-semi version is A316697.
The same trees counted by number of vertices are A331872.
The Matula-Goebel numbers of these trees are A331873.
Lone-child-avoiding rooted trees counted by leaves are A000669.
Semi-lone-child-avoiding rooted trees counted by vertices are A331934.

Programs

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

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

Original entry on oeis.org

1, 4, 8, 14, 16, 28, 32, 38, 49, 56, 64, 76, 86, 98, 106, 112, 128, 152, 172, 196, 212, 214, 224, 256, 262, 304, 326, 343, 344, 361, 392, 424, 428, 448, 454, 512, 524, 526, 608, 622, 652, 686, 688, 722, 766, 784, 848, 856, 886, 896, 908, 1024, 1042, 1048, 1052
Offset: 1

Views

Author

Gus Wiseman, Feb 02 2020

Keywords

Comments

First differs from A320269 in having 1589, the Matula-Goebel number of the tree ((oo)((oo)(oo))).
First differs from A331683 in having 49.
A rooted tree is locally disjoint if no child of any vertex has branches overlapping the branches of any other (inequivalent) child of the same vertex.
Lone-child-avoiding means there are no unary branchings.
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 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 lone-child-avoiding locally disjoint rooted trees together with their Matula-Goebel numbers begins:
    1: o
    4: (oo)
    8: (ooo)
   14: (o(oo))
   16: (oooo)
   28: (oo(oo))
   32: (ooooo)
   38: (o(ooo))
   49: ((oo)(oo))
   56: (ooo(oo))
   64: (oooooo)
   76: (oo(ooo))
   86: (o(o(oo)))
   98: (o(oo)(oo))
  106: (o(oooo))
  112: (oooo(oo))
  128: (ooooooo)
  152: (ooo(ooo))
  172: (oo(o(oo)))
  196: (oo(oo)(oo))
The sequence of terms together with their prime indices begins:
     1: {}                  212: {1,1,16}
     4: {1,1}               214: {1,28}
     8: {1,1,1}             224: {1,1,1,1,1,4}
    14: {1,4}               256: {1,1,1,1,1,1,1,1}
    16: {1,1,1,1}           262: {1,32}
    28: {1,1,4}             304: {1,1,1,1,8}
    32: {1,1,1,1,1}         326: {1,38}
    38: {1,8}               343: {4,4,4}
    49: {4,4}               344: {1,1,1,14}
    56: {1,1,1,4}           361: {8,8}
    64: {1,1,1,1,1,1}       392: {1,1,1,4,4}
    76: {1,1,8}             424: {1,1,1,16}
    86: {1,14}              428: {1,1,28}
    98: {1,4,4}             448: {1,1,1,1,1,1,4}
   106: {1,16}              454: {1,49}
   112: {1,1,1,1,4}         512: {1,1,1,1,1,1,1,1,1}
   128: {1,1,1,1,1,1,1}     524: {1,1,32}
   152: {1,1,1,8}           526: {1,56}
   172: {1,1,14}            608: {1,1,1,1,1,8}
   196: {1,1,4,4}           622: {1,64}
		

Crossrefs

Not requiring local disjointness gives A291636.
Not requiring lone-child avoidance gives A316495.
A superset of A320269.
These trees are counted by A331680.
The semi-identity tree version is A331683.
The version containing 2 is A331873.

Programs

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

Formula

Intersection of A291636 and A316495.
Showing 1-10 of 14 results. Next