A214577 -id:A214577 - cp's OEIS frontend

A298540 Matula-Goebel numbers of rooted trees such that every branch of the root has a different number of nodes.

1, 2, 3, 5, 6, 7, 10, 11, 13, 14, 15, 17, 19, 21, 22, 23, 26, 29, 30, 31, 33, 34, 37, 38, 39, 41, 42, 43, 46, 47, 51, 53, 55, 57, 58, 59, 61, 62, 65, 66, 67, 69, 71, 73, 74, 77, 78, 79, 82, 83, 85, 86, 87, 89, 91, 93, 94, 95, 97, 101, 102, 103, 106, 107, 109

Offset: 1

Gus Wiseman, Jan 21 2018

nonn

			Sequence of trees begins:
1  o
2  (o)
3  ((o))
5  (((o)))
6  (o(o))
7  ((oo))
10 (o((o)))
11 ((((o))))
13 ((o(o)))
14 (o(oo))
15 ((o)((o)))
17 (((oo)))
19 ((ooo))
21 ((o)(oo))
22 (o(((o))))
23 (((o)(o)))
26 (o(o(o)))
29 ((o((o))))
30 (o(o)((o)))

Cf. A000081, A007097, A061775, A111299, A214577, A276625, A290760, A291442, A297571, A298479, A298534, A298536, A298538, A298539.

nn=500;
primeMS[n_]:=If[n===1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
MGweight[n_]:=If[n===1,1,1+Total[MGweight/@primeMS[n]]];
Select[Range[nn],UnsameQ@@MGweight/@primeMS[#]&]

A316521 Matula-Goebel numbers of rooted trees where all terminal rooted subtrees are either constant or strict.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 14, 15, 16, 17, 19, 21, 22, 23, 25, 26, 27, 29, 30, 31, 32, 33, 34, 35, 38, 39, 41, 42, 43, 46, 47, 49, 51, 53, 55, 57, 58, 59, 62, 64, 65, 66, 67, 69, 70, 73, 77, 78, 79, 81, 82, 83, 85, 86, 87, 91, 93, 94, 95, 97, 101

Offset: 1

Gus Wiseman, Jul 05 2018

nonn

The following are equivalent.
n is in the sequence.
prime(n) is in the sequence.
n is a product of prime numbers that are already in the sequence and that are either all equal or all different.

Cf. A000081, A000961, A003238, A004111, A005117, A007097, A072774, A214577, A276625, A277098.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
go[n_]:=And[Or[SameQ@@primeMS[n],UnsameQ@@primeMS[n]],And@@go/@primeMS[n]]
Select[Range[100],go]

A292127 a(1) = 1, a(r(n)^k) = 1 + k * a(n) where r(n) is the n-th number that is not a perfect power A007916(n).

Original entry on oeis.org

1, 2, 3, 3, 4, 4, 5, 4, 5, 5, 6, 5, 6, 6, 7, 5, 6, 7, 7, 8, 6, 7, 8, 8, 7, 9, 7, 7, 8, 9, 9, 6, 8, 10, 8, 7, 8, 9, 10, 10, 7, 9, 11, 9, 8, 9, 10, 11, 9, 11, 8, 10, 12, 10, 9, 10, 11, 12, 10, 12, 9, 11, 13, 7, 11, 10, 11, 12, 13, 11, 13, 10, 12, 14, 8, 12, 11

Offset: 1

Gus Wiseman, Sep 09 2017

nonn

Any positive integer greater than 1 can be written uniquely as a perfect power r(n)^k. We define a planted achiral (or generalized Bethe) tree b(n) for any positive integer greater than 1 by writing n as a perfect power r(d)^k and forming a tree with k branches all equal to b(d). Then a(n) is the number of nodes in b(n).

			The first nineteen planted achiral trees are:
o,
(o),
((o)), (oo),
(((o))), ((oo)),
((((o)))), (ooo), ((o)(o)), (((oo))),
(((((o))))), ((ooo)), (((o)(o))), ((((oo)))),
((((((o)))))), (oooo), (((ooo))), ((((o)(o)))), (((((oo))))).

Cf. A003238, A007916, A052409, A052410, A061775, A214577, A277576, A277615, A278028, A279614, A279944, A289023.

nn=100;
rads=Select[Range[2,nn],GCD@@FactorInteger[#][[All,2]]===1&];
a[1]:=1;a[n_]:=With[{k=GCD@@FactorInteger[n][[All,2]]},1+k*a[Position[rads,n^(1/k)][[1,1]]]];
Array[a,nn]

A298363 Matula-Goebel numbers of rooted identity trees with thinning limbs.

Original entry on oeis.org

1, 2, 3, 5, 6, 10, 11, 15, 22, 26, 30, 31, 33, 39, 55, 58, 62, 65, 66, 78, 87, 93, 94, 110, 127, 130, 141, 143, 145, 155, 158, 165, 174, 186, 195, 202, 235, 237, 254, 274, 282, 286, 290, 303, 310, 319, 330, 334, 341, 377, 381, 390, 395, 403, 411, 429, 435, 465

Offset: 1

Gus Wiseman, Jan 17 2018

nonn

An unlabeled rooted tree has thinning limbs if its outdegrees are weakly decreasing from root to leaves.

			Sequence of trees begins:
1  o
2  (o)
3  ((o))
5  (((o)))
6  (o(o))
10 (o((o)))
11 ((((o))))
15 ((o)((o)))
22 (o(((o))))
26 (o(o(o)))
30 (o(o)((o)))
31 (((((o)))))
33 ((o)(((o))))
39 ((o)(o(o)))
55 (((o))(((o))))
58 (o(o((o))))
62 (o((((o)))))
65 (((o))(o(o)))
66 (o(o)(((o))))
78 (o(o)(o(o)))
87 ((o)(o((o))))
93 ((o)((((o)))))
94 (o((o)((o))))

Cf. A000081, A004111, A007097, A061775, A111299, A124343, A124346, A214577, A276625, A277098, A290689, A290760, A298304, A298305.

MGtree[n_]:=If[n===1,{},MGtree/@Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
idthinQ[t_]:=And@@Cases[t,b_List:>UnsameQ@@b&&Length[b]>=Max@@Length/@b,{0,Infinity}];
Select[Range[500],idthinQ[MGtree[#]]&]

Intersection of A276625 and A298303.

A316522 Number of unlabeled rooted trees with n nodes where all terminal rooted subtrees are either constant or strict.

Original entry on oeis.org

1, 1, 2, 4, 8, 15, 34, 71, 165, 381, 913, 2193, 5389, 13287, 33155, 83196, 210251, 533956, 1363146, 3494266, 8993164, 23225281

Offset: 1

Gus Wiseman, Jul 05 2018

			The a(6) = 15 rooted trees:
  (((((o)))))
  ((((oo))))
  (((o(o))))
  (((ooo)))
  ((o((o))))
  ((o(oo)))
  (((o)(o)))
  ((oooo))
  (o(((o))))
  (o((oo)))
  (o(o(o)))
  (o(ooo))
  ((o)((o)))
  ((o)(oo))
  (ooooo)
Missing from this list are:
  ((oo(o)))
  (oo((o)))
  (oo(oo))
  (o(o)(o))
  (ooo(o))

Cf. A000081, A003238, A004111, A214577, A276625, A316521.

Clear[strut];
strut[n_]:=strut[n]=If[n==1,{{}},Select[Join@@Function[c,Union[Sort/@Tuples[strut/@c]]]/@IntegerPartitions[n-1],Or[SameQ@@#,UnsameQ@@#]&]];
Table[Length[strut[n]],{n,15}]

a(16)-a(22) from Robert Price, Sep 16 2018

A317720 Numbers that are not uniform relatively prime tree numbers.

Original entry on oeis.org

9, 12, 18, 20, 21, 23, 24, 25, 27, 28, 37, 39, 40, 44, 45, 46, 48, 49, 50, 52, 54, 56, 57, 60, 61, 63, 65, 68, 69, 71, 72, 73, 74, 75, 76, 80, 81, 83, 84, 87, 88, 89, 90, 91, 92, 96, 97, 98, 99, 103, 104, 107, 108, 111, 112, 115, 116, 117, 120, 121, 122, 124

Offset: 1

Gus Wiseman, Aug 05 2018

nonn

A positive integer n is a uniform relatively prime tree number iff either n = 1 or n is a prime number whose prime index is a uniform relatively prime tree number, or n is a power of a squarefree number whose prime indices are relatively prime and are themselves uniform relatively prime tree numbers. A prime index of n is a number m such that prime(m) divides n.

			The sequence of non-uniform tree numbers together with their Matula-Goebel trees begins:
   9: ((o)(o))
  12: (oo(o))
  18: (o(o)(o))
  20: (oo((o)))
  21: ((o)(oo))
  23: (((o)(o)))
  24: (ooo(o))
  25: (((o))((o)))
  27: ((o)(o)(o))
  28: (oo(oo))
  37: ((oo(o)))
  39: ((o)(o(o)))
  40: (ooo((o)))
  44: (oo(((o))))
  45: ((o)(o)((o)))

Cf. A061775, A072774, A111299, A214577, A276625, A277098, A303431, A317590.

Cf. A317705, A317707, A317708, A317709, A317710, A317712, A317717, A317718.

rupQ[n_]:=Or[n==1,If[PrimeQ[n],rupQ[PrimePi[n]],And[SameQ@@FactorInteger[n][[All,2]],GCD@@PrimePi/@FactorInteger[n][[All,1]]==1,And@@rupQ/@PrimePi/@FactorInteger[n][[All,1]]]]];
Select[Range[200],!rupQ[#]&]

cp's OEIS Frontend

A298540 Matula-Goebel numbers of rooted trees such that every branch of the root has a different number of nodes.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A316521 Matula-Goebel numbers of rooted trees where all terminal rooted subtrees are either constant or strict.

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica

A292127 a(1) = 1, a(r(n)^k) = 1 + k * a(n) where r(n) is the n-th number that is not a perfect power A007916(n).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A298363 Matula-Goebel numbers of rooted identity trees with thinning limbs.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A316522 Number of unlabeled rooted trees with n nodes where all terminal rooted subtrees are either constant or strict.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Extensions

A317720 Numbers that are not uniform relatively prime tree numbers.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica