A061775 -id:A061775 - cp's OEIS frontend

A212620 Irregular triangle read by rows: T(n,k) is the number of k-vertex subtrees of the rooted tree with Matula-Goebel number n (n>=1, k>=1).

1, 2, 1, 3, 2, 1, 3, 2, 1, 4, 3, 2, 1, 4, 3, 2, 1, 4, 3, 3, 1, 4, 3, 3, 1, 5, 4, 3, 2, 1, 5, 4, 3, 2, 1, 5, 4, 3, 2, 1, 5, 4, 4, 3, 1, 5, 4, 4, 3, 1, 5, 4, 4, 3, 1, 6, 5, 4, 3, 2, 1, 5, 4, 6, 4, 1, 5, 4, 4, 3, 1, 6, 5, 5, 5, 3, 1, 5, 4, 6, 4, 1, 6, 5, 5, 4, 3, 1, 6, 5, 5, 4, 3, 1, 6, 5, 4, 3, 2, 1, 6, 5, 5, 5, 3, 1, 6, 5, 7, 7, 4, 1, 7, 6, 5, 4, 3, 2, 1, 6, 5, 5, 5, 3, 1, 7, 6, 6, 7, 6, 3, 1, 6, 5, 6, 6, 4, 1, 6, 5, 5, 4, 3, 1, 7, 6, 6, 6, 5, 3, 1

Offset: 1

Emeric Deutsch, May 23 2012

The Matula-Goebel number of a rooted tree can be defined in the following recursive manner: to the one-vertex tree there corresponds the number 1; to a tree T with root degree 1 there corresponds the t-th prime number, where t is the Matula-Goebel number of the tree obtained from T by deleting the edge emanating from the root; to a tree T with root degree m>=2 there corresponds the product of the Matula-Goebel numbers of the m branches of T.
Number of entries in row n is A061775(n) (number of vertices).
Sum of entries in row n is A184161(n) (number of subtrees).
For the number of subtrees containing the root, see A206491.

			T(7,2)=3 because the rooted tree with Matula-Goebel number 7 is Y, having 3 subtrees with 2 vertices.
Row 3 is 3,2,1 because the rooted tree with Matula-Goebel number 3 is the path tree  a - b - c, having 3 subtrees with 1 node each (a, b, c), 2 subtrees with 2 nodes each (ab, bc), and 1 subtree with 3 nodes (abc).
Triangle begins:
  1;
  2,1;
  3,2,1;
  3,2,1;
  4,3,2,1;
  4,3,2,1;
  4,3,3,1;
  4,3,3,1;
  5,4,3,2,1;
  5,4,3,2,1;
  5,4,3,2,1;
  5,4,4,3,1;
  ...

I. Gutman and Y-N. Yeh, Deducing properties of trees from their Matula numbers, Publ. Inst. Math., 53 (67), 1993, 17-22.
D. W. Matula, A natural rooted tree enumeration by prime factorization, SIAM Review, 10, 1968, 273.
R. E. Jamison, Alternating Whitney sums and matching in trees, part 1, Discrete Math., 67, 1987, 177-189.
R. E. Jamison, Alternating Whitney sums and matching in trees, part 2, Discrete Math., 79, 1989/90, 177-189.

Emeric Deutsch, Rooted tree statistics from Matula numbers, arXiv:1111.4288 [math.CO], 2011.
F. Goebel, On a 1-1-correspondence between rooted trees and natural numbers, J. Combin. Theory, B 29 (1980), 141-143.
I. Gutman and A. Ivic, On Matula numbers Discrete Math., 150 (1996), 131-142.
Index entries for sequences related to Matula-Goebel numbers

Cf. A061775, A184161, A206491, A212618, A212619, A212621, A212622, A212623, A212624, A212625, A212626, A212627, A212628, A212629, A212630, A212631, A212632.

with(numtheory):
R := proc (n) local r, s:
  r := proc (n) options operator, arrow: op(1, factorset(n)) end proc:
  s := proc (n) options operator, arrow: n/r(n) end proc:
  if n = 1 then x elif bigomega(n) = 1 then sort(expand(x+x*R(pi(n)))) else sort(expand(R(r(n))*R(s(n))/x)) end if
end proc:
G := proc (n) local r, s:
  r := proc (n) options operator, arrow: op(1, factorset(n)) end proc:
  s := proc (n) options operator, arrow: n/r(n) end proc:
  if n = 1 then x elif bigomega(n) = 1 then sort(expand(R(n)+G(pi(n)))) else sort(G(r(n))+G(s(n))+R(n)-R(r(n))-R(s(n))) end if
end proc:
WH := proc (n) options operator, arrow: seq(coeff(G(n), x, k), k = 1 .. nops(G(n)))
end proc:
for n to 30 do WH(n) end do; # yields sequence in triangular form

r[n_] := FactorInteger[n][[1, 1]];
s[n_] := n/r[n];
R[n_] := Which[n == 1, x, PrimeOmega[n] == 1, Expand[x + x*R[PrimePi[n]]], True, Expand[R[r[n]]* R[s[n]]/x]];
G[n_] := Which[n == 1, x, PrimeOmega[n] == 1, Expand[R[n] + G[PrimePi[n]]], True, Expand[G[r[n]] + G[s[n]] + R[n] - R[r[n]] - R[s[n]]]];
WH[n_] := Rest@CoefficientList[G[n], x];
Table[WH[n], {n, 1, 30}] // Flatten (* Jean-François Alcover, Jun 19 2024, after Maple code *)

There exist recursion formulas for the generating polynomial G(n)=G(n,x) of the subtrees with respect to the number of vertices. One introduces also the generating polynomial R(n)=R(n,x) of the root subtrees (subtrees containing the root) with respect to the number of vertices. There is a Maple program for R(n) and one for G(n). From G(n) one extracts the entries of the triangle.

A324935 Matula-Goebel numbers of rooted trees whose non-leaf terminal subtrees are all different.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 10, 11, 12, 13, 14, 16, 17, 19, 20, 21, 22, 24, 26, 28, 29, 31, 32, 34, 35, 37, 38, 40, 41, 42, 43, 44, 48, 51, 52, 53, 56, 57, 58, 59, 62, 64, 67, 68, 70, 71, 73, 74, 76, 77, 79, 80, 82, 84, 85, 86, 88, 89, 91, 95, 96, 101, 102, 104

Offset: 1

Gus Wiseman, Mar 21 2019

nonn

Every positive integer has a unique factorization into factors q(i) = prime(i)/i, i > 0. This sequence consists of all numbers where this factorization has all distinct factors, except possibly for any multiplicity of q(1). For example, 22 = q(1)^2 q(2) q(3) q(5) is in the sequence, while 50 = q(1)^3 q(2)^2 q(3)^2 is not.

The enumeration of these trees by number of vertices is A324936.

			The sequence of trees together with their Matula-Goebel numbers begins:
   1: o
   2: (o)
   3: ((o))
   4: (oo)
   5: (((o)))
   6: (o(o))
   7: ((oo))
   8: (ooo)
  10: (o((o)))
  11: ((((o))))
  12: (oo(o))
  13: ((o(o)))
  14: (o(oo))
  16: (oooo)
  17: (((oo)))
  19: ((ooo))
  20: (oo((o)))
  21: ((o)(oo))
  22: (o(((o))))
  24: (ooo(o))
  26: (o(o(o)))
  28: (oo(oo))
  29: ((o((o))))
  31: (((((o)))))

Gus Wiseman, The first 36 rooted trees whose non-leaf terminal subtrees are all different, together with their Matula-Goebel numbers.

Cf. A000081, A004111, A007097, A061775, A196050, A276625, A290822, A317713.

Cf. A324850, A324922, A324923, A324924, A324931, A324934, A324936.

difac[n_]:=If[n==1,{},With[{i=PrimePi[FactorInteger[n][[1,1]]]},Sort[Prepend[difac[n*i/Prime[i]],i]]]];
Select[Range[100],UnsameQ@@DeleteCases[difac[#],1]&]

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

Gus Wiseman, Jan 26 2020

nonn

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.

			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)))

Robert Israel, Table of n, a(n) for n = 1..4000

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.
Cf. A000081, A000669, A001678, A007097, A061775, A196050, A291636, A316470, A316473, A331679, A331680, A331682, A331687, A331783, A331785, A331873.

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

uryQ[n_]:=n==1||MatchQ[FactorInteger[n],({{2,},{p,1}}/;uryQ[PrimePi[p]])|{{2,_}}];
Select[Range[100],uryQ]

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

Gus Wiseman, Feb 03 2020

nonn

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.

			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))))

Gus Wiseman, The first 63 semi-lone-child-avoiding rooted identity trees.

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.
Cf. A004111, A007097, A050381, A061775, A196050, A291636, A300660, A306202, A320269, A331681, A331873, A331875, A331933, A331934, A331936.

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

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

A320269 Matula-Goebel numbers of lone-child-avoiding rooted trees in which the non-leaf branches directly under any given node are all equal (semi-achirality).

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

Gus Wiseman, Oct 08 2018

nonn

First differs from A331871 in lacking 1589.
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.

			The sequence of 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))

Gus Wiseman, Sequences counting series-reduced and lone-child-avoiding trees by number of vertices.

Cf. A002541, A070776, A167865, A214577, A317710, A320222, A320226.
The same-tree version is A291441.
Not requiring lone-child-avoidance gives A320230.
The enumeration of these trees by vertices is A320268.
The semi-lone-child-avoiding version is A331936.
If the non-leaf branches are all different instead of equal we get A331965.
The fully-achiral case is A331967.
Achiral rooted trees are counted by A003238.
MG-numbers of lone-child-avoiding rooted trees are A291636.
Cf. A061775, A196050, A276625, A280996, A306202, A331912, A331916, A331966.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]
hmakQ[n_]:=And[!PrimeQ[n],SameQ@@DeleteCases[primeMS[n],1],And@@hmakQ/@primeMS[n]];Select[Range[1000],hmakQ[#]&]

Updated with corrected terminology by Gus Wiseman, Feb 06 2020

A358729 Difference between the number of nodes and the node-height of the rooted tree with Matula-Goebel number n.

Original entry on oeis.org

0, 0, 0, 1, 0, 1, 1, 2, 2, 1, 0, 2, 1, 2, 2, 3, 1, 3, 2, 2, 3, 1, 2, 3, 3, 2, 4, 3, 1, 3, 0, 4, 2, 2, 3, 4, 2, 3, 3, 3, 1, 4, 2, 2, 4, 3, 2, 4, 4, 4, 3, 3, 3, 5, 3, 4, 4, 2, 1, 4, 3, 1, 5, 5, 4, 3, 2, 3, 4, 4, 2, 5, 3, 3, 5, 4, 3, 4, 1, 4, 6, 2, 2, 5, 4, 3, 3, 3, 3, 5, 4, 4, 2, 3, 4, 5, 3, 5, 4, 5, 2, 4, 4, 4, 5, 4, 3, 6

Offset: 1

Gus Wiseman, Nov 29 2022

nonn

Node-height is the number of nodes in the longest path from root to 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.
Because the number of distinct terminal subtrees of the rooted tree with Matula-Goebel number n, i.e., A317713(n) (= 1+A324923(n)), is always at least one larger than the depth of the same tree (= A109082(n)), it follows that a(n) >= A366386(n) for all n. - Antti Karttunen, Oct 23 2023

			The tree (oo(oo(o))) with Matula-Goebel number 148 has 8 nodes and node-height 4, so a(148) = 4.

Antti Karttunen, Table of n, a(n) for n = 1..100000
Index entries for sequences related to Matula-Goebel numbers

Positions of 0's are A007097.
Positions of first appearances are A358730.
Positions of 1's are A358731.
Other differences: A358580, A358724, A358726.
A000081 counts rooted trees, ordered A000108.
A034781 counts rooted trees by nodes and height, ordered A080936.
A055277 counts rooted trees by nodes and leaves, ordered A001263.
MG statistics: A061775, A109082, A109129, A196050, A342507, A358552.
MG core: A000040, A000720, A001222, A056239, A112798.
Cf. A206487, A209638, A316321, A358576, A358577, A358592, A358725, A366386.

MGTree[n_]:=If[n==1,{},MGTree/@Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[Count[MGTree[n],_,{0,Infinity}]-(Depth[MGTree[n]]-1),{n,100}]

A061775(n) = if(1==n, 1, if(isprime(n), 1+A061775(primepi(n)), {my(pfs,t,i); pfs=factor(n); pfs[,1]=apply(t->A061775(t),pfs[,1]); (1-bigomega(n)) + sum(i=1, omega(n), pfs[i,1]*pfs[i,2])}));
A358552(n) = { my(v=factor(n)[, 1], d=0); while(#v, d++; v=fold(setunion, apply(p->factor(primepi(p))[, 1]~, v))); (1+d); }; \\ (after program given in A109082 by Kevin Ryde, Sep 21 2020)
A358729(n) = (A061775(n)-A358552(n)); \\ Antti Karttunen, Oct 23 2023

a(n) = A061775(n) - A358552(n).

a(n) = A196050(n) - A109082(n). - Antti Karttunen, Oct 23 2023

Data section extended up to a(108) by Antti Karttunen, Oct 23 2023

A317709 Aperiodic relatively prime tree numbers. Matula-Goebel numbers of aperiodic relatively prime trees.

Original entry on oeis.org

1, 2, 3, 5, 6, 10, 11, 12, 13, 15, 18, 20, 22, 24, 26, 29, 30, 31, 33, 37, 40, 41, 44, 45, 47, 48, 50, 52, 54, 55, 58, 60, 61, 62, 66, 71, 72, 74, 75, 78, 79, 80, 82, 88, 89, 90, 93, 94, 96, 99, 101, 104, 108, 109, 110, 113, 116, 120, 122, 123, 124, 127, 130

Offset: 1

Gus Wiseman, Aug 05 2018

nonn

A positive integer n is in the sequence iff either n = 1 or n is a prime number whose prime index already belongs to the sequence or n is not a perfect power and its prime indices are relatively prime numbers already belonging to the sequence. A prime index of n is a number m such that prime(m) divides n.

			The sequence of aperiodic relatively prime tree numbers together with their Matula-Goebel trees begins:
   1: o
   2: (o)
   3: ((o))
   5: (((o)))
   6: (o(o))
  10: (o((o)))
  11: ((((o))))
  12: (oo(o))
  13: ((o(o)))
  15: ((o)((o)))
  18: (o(o)(o))
  20: (oo((o)))
  22: (o(((o))))
  24: (ooo(o))
  26: (o(o(o)))
  29: ((o((o))))
  30: (o(o)((o)))
  31: (((((o)))))

Cf. A000081, A061775, A111299, A214577, A276625, A277098, A301700, A303431, A316503.

Cf. A317705, A317707, A317708, A317710, A317711, A317712.

rupQ[n_]:=Or[n==1,If[PrimeQ[n],rupQ[PrimePi[n]],And[GCD@@FactorInteger[n][[All,2]]==1,GCD@@PrimePi/@FactorInteger[n][[All,1]]==1,And@@rupQ/@PrimePi/@FactorInteger[n][[All,1]]]]];
Select[Range[100],rupQ]

A317717 Uniform relatively prime tree numbers. Matula-Goebel numbers of uniform relatively prime rooted trees.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 10, 11, 13, 14, 15, 16, 17, 19, 22, 26, 29, 30, 31, 32, 33, 34, 35, 36, 38, 41, 42, 43, 47, 51, 53, 55, 58, 59, 62, 64, 66, 67, 70, 77, 78, 79, 82, 85, 86, 93, 94, 95, 100, 101, 102, 105, 106, 109, 110, 113, 114, 118, 119, 123, 127, 128

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.

A. David Christopher and M. Davamani Christober, Relatively Prime Uniform Partitions, Gen. Math. Notes, Vol. 13, No. 2, December, 2012, pp.1-12.

Cf. A000081, A061775, A072774, A214577, A276625, A277098, A317588.

Cf. A317705, A317707, A317708, A317709, A317710, A317711, A317712, 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]

A330943 Matula-Goebel numbers of singleton-reduced rooted trees.

Original entry on oeis.org

1, 2, 4, 6, 7, 8, 12, 13, 14, 16, 18, 19, 21, 24, 26, 28, 32, 34, 36, 37, 38, 39, 42, 43, 48, 49, 52, 53, 54, 56, 57, 61, 63, 64, 68, 72, 73, 74, 76, 78, 82, 84, 86, 89, 91, 96, 98, 101, 102, 104, 106, 107, 108, 111, 112, 114, 117, 119, 122, 126, 128, 129, 131

Offset: 1

Gus Wiseman, Jan 13 2020

nonn

These trees are counted by A330951.
A rooted tree is singleton-reduced if no non-leaf node has all singleton branches, where a rooted tree is a singleton if its root has degree 1.
The Matula-Goebel number of a rooted tree is the product of primes of the Matula-Goebel numbers of its branches. This gives a bijective correspondence between positive integers and unlabeled rooted trees.
A prime index of n is a number m such that prime(m) divides n. A number belongs to this sequence iff it is 1 or its prime indices all belong to this sequence but are not all prime.

			The sequence of all singleton-reduced rooted trees together with their Matula-Goebel numbers begins:
   1: o
   2: (o)
   4: (oo)
   6: (o(o))
   7: ((oo))
   8: (ooo)
  12: (oo(o))
  13: ((o(o)))
  14: (o(oo))
  16: (oooo)
  18: (o(o)(o))
  19: ((ooo))
  21: ((o)(oo))
  24: (ooo(o))
  26: (o(o(o)))
  28: (oo(oo))
  32: (ooooo)
  34: (o((oo)))
  36: (oo(o)(o))
  37: ((oo(o)))

The series-reduced case is A291636.
Unlabeled rooted trees are counted by A000081.
Numbers whose prime indices are not all prime are A330945.
Singleton-reduced rooted trees are counted by A330951.
Singleton-reduced phylogenetic trees are A000311.
The set S of numbers whose prime indices do not all belong to S is A324694.
Cf. A000669, A001678, A006450, A007097, A007821, A061775, A196050, A257994, A276625, A277098, A320628, A330944, A330948.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
mgsingQ[n_]:=n==1||And@@mgsingQ/@primeMS[n]&&!And@@PrimeQ/@primeMS[n];
Select[Range[100],mgsingQ]

A184155 The Matula-Goebel number of rooted trees having all leaves at the same level.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 8, 9, 11, 16, 17, 19, 21, 23, 25, 27, 31, 32, 49, 53, 57, 59, 63, 64, 67, 73, 81, 83, 85, 97, 103, 115, 121, 125, 127, 128, 131, 133, 147, 159, 171, 189, 227, 241, 243, 256, 269, 277, 289, 307, 311, 331, 335, 343, 361, 365, 367, 371, 391, 393, 399, 419, 425, 431, 439, 441, 477

Offset: 1

Emeric Deutsch, Oct 07 2011

nonn

The Matula-Goebel number of a rooted tree can be defined in the following recursive manner: to the one-vertex tree there corresponds the number 1; to a tree T with root degree 1 there corresponds the t-th prime number, where t is the Matula-Goebel number of the tree obtained from T by deleting the edge emanating from the root; to a tree T with root degree m>=2 there corresponds the product of the Matula-Goebel numbers of the m branches of T.

The sequence is infinite.

			7 is in the sequence because the rooted tree with Matula-Goebel number 7 is the rooted tree Y, having all leaves at level 2.
2^m is in the sequence for each positive integer m because the rooted tree with Matula-Goebel number 2^m is a star with m edges.
From _Gus Wiseman_, Mar 30 2018: (Start)
Sequence of trees begins:
01 o
02 (o)
03 ((o))
04 (oo)
05 (((o)))
07 ((oo))
08 (ooo)
09 ((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)))))
(End)

F. Goebel, On a 1-1-correspondence between rooted trees and natural numbers, J. Combin. Theory, B 29 (1980), 141-143.
I. Gutman and A. Ivic, On Matula numbers, Discrete Math., 150, 1996, 131-142.
I. Gutman and Yeong-Nan Yeh, Deducing properties of trees from their Matula numbers, Publ. Inst. Math., 53 (67), 1993, 17-22.
D. W. Matula, A natural rooted tree enumeration by prime factorization, SIAM Review, 10, 1968, 273.

Index entries for sequences related to Matula-Goebel numbers

Cf. A000081, A003238, A004111, A007097, A048816, A061775, A109082, A184154, A214577, A244925, A276625, A290689, A290760, A290822, A298422, A298424, A298426.

with(numtheory): P := proc (n) local r, s: r := proc (n) options operator, arrow: op(1, factorset(n)) end proc: s := proc (n) options operator, arrow: n/r(n) end proc: if n = 1 then 1 elif bigomega(n) = 1 then sort(expand(x*P(pi(n)))) else sort(P(r(n))+P(s(n))) end if end proc: A := {}: for n to 500 do if degree(numer(subs(x = 1/x, P(n)))) = 0 then A := `union`(A, {n}) else  end if end do: A;

primeMS[n_]:=If[n===1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
dep[n_]:=If[n===1,0,1+Max@@dep/@primeMS[n]];
rnkQ[n_]:=And[SameQ@@dep/@primeMS[n],And@@rnkQ/@primeMS[n]];
Select[Range[2000],rnkQ] (* Gus Wiseman, Mar 30 2018 *)

In A184154 one constructs for each n the generating polynomial P(n,x) of the leaves of the rooted tree with Matula-Goebel number n, according to their levels. The Maple program finds those n (between 1 and 500) for which P(n,x) is a monomial.

cp's OEIS Frontend

A212620 Irregular triangle read by rows: T(n,k) is the number of k-vertex subtrees of the rooted tree with Matula-Goebel number n (n>=1, k>=1).

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A324935 Matula-Goebel numbers of rooted trees whose non-leaf terminal subtrees are all different.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A320269 Matula-Goebel numbers of lone-child-avoiding rooted trees in which the non-leaf branches directly under any given node are all equal (semi-achirality).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Extensions

A358729 Difference between the number of nodes and the node-height of the rooted tree with Matula-Goebel number n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A317709 Aperiodic relatively prime tree numbers. Matula-Goebel numbers of aperiodic relatively prime trees.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica