cp's OEIS Frontend

A298305 Matula-Goebel numbers of rooted trees with strictly thinning limbs.

%I A298305 #6 Jan 17 2018 04:28:40
%S A298305 1,2,4,6,8,9,12,16,18,24,27,28,32,36,42,48,52,54,56,63,64,72,78,81,84,
%T A298305 92,96,98,104,108,112,117,126,128,138,144,147,152,156,162,168,182,184,
%U A298305 189,192,196,207,208,216,224,228,234,243,252,256,273,276,288,294
%N A298305 Matula-Goebel numbers of rooted trees with strictly thinning limbs.
%C A298305 An unlabeled rooted tree has strictly thinning limbs if its outdegrees are strictly decreasing from root to leaves.
%e A298305 Sequence of trees begins:
%e A298305 1  o
%e A298305 2  (o)
%e A298305 4  (oo)
%e A298305 6  (o(o))
%e A298305 8  (ooo)
%e A298305 9  ((o)(o))
%e A298305 12 (oo(o))
%e A298305 16 (oooo)
%e A298305 18 (o(o)(o))
%e A298305 24 (ooo(o))
%e A298305 27 ((o)(o)(o))
%e A298305 28 (oo(oo))
%e A298305 32 (ooooo)
%e A298305 36 (oo(o)(o))
%e A298305 42 (o(o)(oo))
%e A298305 48 (oooo(o))
%e A298305 52 (oo(o(o)))
%e A298305 54 (o(o)(o)(o))
%e A298305 56 (ooo(oo))
%e A298305 63 ((o)(o)(oo))
%e A298305 64 (oooooo)
%e A298305 72 (ooo(o)(o))
%e A298305 78 (o(o)(o(o)))
%e A298305 81 ((o)(o)(o)(o))
%e A298305 84 (oo(o)(oo))
%e A298305 92 (oo((o)(o)))
%e A298305 96 (ooooo(o))
%e A298305 98 (o(oo)(oo))
%t A298305 MGtree[n_]:=If[n===1,{},MGtree/@Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
%t A298305 strthinQ[t_]:=And@@Cases[t,b_List:>Length[b]>Max@@Length/@b,{0,Infinity}];
%t A298305 Select[Range[200],strthinQ[MGtree[#]]&]
%Y A298305 Cf. A000081, A007097, A061775, A111299, A124343, A124346, A214577, A276625, A290760, A291636, A298126, A298120, A298304.
%K A298305 nonn
%O A298305 1,2
%A A298305 _Gus Wiseman_, Jan 16 2018