cp's OEIS Frontend

A331489 Matula-Goebel numbers of topologically series-reduced rooted trees.

%I A331489 #5 Feb 16 2025 08:33:59
%S A331489 1,2,7,8,16,19,28,32,43,53,56,64,76,98,107,112,128,131,152,163,172,
%T A331489 196,212,224,227,256,263,266,304,311,343,344,383,392,424,428,443,448,
%U A331489 512,521,524,532,577,602,608,613,652,686,688,719,722,742,751,784,848,856
%N A331489 Matula-Goebel numbers of topologically series-reduced rooted trees.
%C A331489 We say that a rooted tree is topologically series-reduced if no vertex (including the root) has degree 2.
%C A331489 The Matula-Goebel number of a rooted tree is the product of primes indexed by the Matula-Goebel numbers of its branches. This gives a bijective correspondence between positive integers and unlabeled rooted trees.
%H A331489 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/Series-ReducedTree.html">Series-reduced tree.</a>
%H A331489 Gus Wiseman, <a href="https://docs.google.com/document/d/e/2PACX-1vS1zCO9fgAIe5rGiAhTtlrOTuqsmuPos2zkeFPYB80gNzLb44ufqIqksTB4uM9SIpwlvo-oOHhepywy/pub">Sequences counting series-reduced and lone-child-avoiding trees by number of vertices.</a>
%e A331489 The sequence of all topologically series-reduced rooted trees together with their Matula-Goebel numbers begins:
%e A331489     1: o
%e A331489     2: (o)
%e A331489     7: ((oo))
%e A331489     8: (ooo)
%e A331489    16: (oooo)
%e A331489    19: ((ooo))
%e A331489    28: (oo(oo))
%e A331489    32: (ooooo)
%e A331489    43: ((o(oo)))
%e A331489    53: ((oooo))
%e A331489    56: (ooo(oo))
%e A331489    64: (oooooo)
%e A331489    76: (oo(ooo))
%e A331489    98: (o(oo)(oo))
%e A331489   107: ((oo(oo)))
%e A331489   112: (oooo(oo))
%e A331489   128: (ooooooo)
%e A331489   131: ((ooooo))
%e A331489   152: (ooo(ooo))
%e A331489   163: ((o(ooo)))
%t A331489 nn=1000;
%t A331489 primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
%t A331489 srQ[n_]:=Or[n==1,With[{m=primeMS[n]},And[Length[m]>1,And@@srQ/@m]]];
%t A331489 Select[Range[nn],PrimeOmega[#]!=2&&And@@srQ/@primeMS[#]&]
%Y A331489 Unlabeled rooted trees are counted by A000081.
%Y A331489 Topologically series-reduced trees are counted by A000014.
%Y A331489 Topologically series-reduced rooted trees are counted by A001679.
%Y A331489 Labeled topologically series-reduced trees are counted by A005512.
%Y A331489 Labeled topologically series-reduced rooted trees are counted by A060313.
%Y A331489 Matula-Goebel numbers of lone-child-avoiding rooted trees are A291636.
%Y A331489 Cf. A000669, A001678, A007097, A007821, A060356, A061775, A109082, A109129, A196050, A254382, A276625, A330943, A331490.
%K A331489 nonn
%O A331489 1,2
%A A331489 _Gus Wiseman_, Jan 20 2020