|
|
A324968
|
|
Matula-Goebel numbers of rooted identity trees whose non-leaf terminal subtrees are all different.
|
|
5
|
|
|
1, 2, 3, 5, 6, 10, 11, 13, 22, 26, 29, 31, 41, 58, 62, 79, 82, 101, 109, 127, 158, 179, 202, 218, 254, 271, 293, 358, 401, 421, 542, 547, 586, 599, 709, 802, 842, 929, 1063, 1094, 1198, 1231, 1361, 1418, 1609, 1741, 1858, 1913, 2126, 2411, 2462, 2722, 2749
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
A rooted identity tree is an unlabeled rooted tree with no repeated branches directly under the same root. This sequence ranks rooted identity trees satisfying the additional condition that all non-leaf terminal subtrees are different.
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
The sequence of trees together with the Matula-Goebel numbers begins:
1: o
2: (o)
3: ((o))
5: (((o)))
6: (o(o))
10: (o((o)))
11: ((((o))))
13: ((o(o)))
22: (o(((o))))
26: (o(o(o)))
29: ((o((o))))
31: (((((o)))))
41: (((o(o))))
58: (o(o((o))))
62: (o((((o)))))
79: ((o(((o)))))
82: (o((o(o))))
101: ((o(o(o))))
109: (((o((o)))))
127: ((((((o))))))
|
|
MATHEMATICA
|
mgtree[n_Integer]:=If[n==1, {}, mgtree/@Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
Select[Range[100], And[And@@Cases[mgtree[#], q:{__}:>UnsameQ@@q, {0, Infinity}], UnsameQ@@Cases[mgtree[#], {__}, {0, Infinity}]]&]
|
|
CROSSREFS
|
Cf. A000081, A004111, A007097, A196050, A276625, A317713, A324850, A324923, A324935, A324936, A324969, A324970, A324978.
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|