A358578 Matula-Goebel numbers of rooted trees whose number of leaves equals their number of internal (non-leaf) nodes.
2, 6, 7, 18, 20, 21, 26, 34, 37, 43, 54, 60, 63, 67, 70, 78, 88, 91, 92, 95, 102, 111, 116, 119, 122, 129, 142, 146, 151, 162, 164, 173, 180, 181, 189, 200, 201, 202, 210, 227, 234, 236, 239, 245, 260, 264, 269, 273, 276, 278, 285, 306, 308, 314, 322, 333, 337
Offset: 1
Keywords
Examples
The terms together with their corresponding rooted trees begin: 2: (o) 6: (o(o)) 7: ((oo)) 18: (o(o)(o)) 20: (oo((o))) 21: ((o)(oo)) 26: (o(o(o))) 34: (o((oo))) 37: ((oo(o))) 43: ((o(oo))) 54: (o(o)(o)(o)) 60: (oo(o)((o))) 63: ((o)(o)(oo)) 67: (((ooo))) 70: (o((o))(oo)) 78: (o(o)(o(o))) 88: (ooo(((o)))) 91: ((oo)(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}]==Count[MGTree[#],[_],{0,Infinity}]&]
Comments