OFFSET
1,2
EXAMPLE
Sequence of trees begins:
1 o
2 (o)
3 ((o))
5 (((o)))
7 ((oo))
11 ((((o))))
13 ((o(o)))
14 (o(oo))
17 (((oo)))
19 ((ooo))
21 ((o)(oo))
23 (((o)(o)))
26 (o(o(o)))
29 ((o((o))))
31 (((((o)))))
34 (o((oo)))
35 (((o))(oo))
37 ((oo(o)))
38 (o(ooo))
39 ((o)(o(o)))
41 (((o(o))))
43 ((o(oo)))
46 (o((o)(o)))
47 (((o)((o))))
MATHEMATICA
nn=2000;
primeMS[n_]:=If[n===1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
leafcount[n_]:=If[n===1, 1, With[{m=primeMS[n]}, If[Length[m]===1, leafcount[First[m]], Total[leafcount/@m]]]];
Select[Range[nn], UnsameQ@@leafcount/@primeMS[#]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jan 20 2018
STATUS
approved