A358576 Matula-Goebel numbers of rooted trees whose node-height equals their number of internal (non-leaf) nodes.
9, 15, 18, 21, 23, 30, 33, 35, 36, 39, 42, 46, 47, 49, 51, 57, 60, 61, 66, 70, 72, 73, 77, 78, 83, 84, 87, 91, 92, 93, 94, 95, 98, 102, 111, 113, 114, 119, 120, 122, 123, 129, 132, 133, 137, 140, 144, 146, 149, 151, 154, 156, 159, 166, 167, 168, 174, 177, 181
Offset: 1
Keywords
Examples
The terms together with their corresponding rooted trees begin: 9: ((o)(o)) 15: ((o)((o))) 18: (o(o)(o)) 21: ((o)(oo)) 23: (((o)(o))) 30: (o(o)((o))) 33: ((o)(((o)))) 35: (((o))(oo)) 36: (oo(o)(o)) 39: ((o)(o(o))) 42: (o(o)(oo)) 46: (o((o)(o))) 47: (((o)((o)))) 49: ((oo)(oo)) 51: ((o)((oo))) 57: ((o)(ooo)) 60: (oo(o)((o))) 61: ((o(o)(o)))
Links
Programs
-
Mathematica
MGTree[n_]:=If[n==1,{},MGTree/@Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]; Select[Range[100],Count[MGTree[#],[_],{0,Infinity}]==Depth[MGTree[#]]-1&]
Comments