OFFSET
1,2
EXAMPLE
Sequence of trees begins:
1 o
2 (o)
3 ((o))
4 (oo)
5 (((o)))
8 (ooo)
11 ((((o))))
14 (o(oo))
16 (oooo)
31 (((((o)))))
32 (ooooo)
49 ((oo)(oo))
64 (oooooo)
76 (oo(ooo))
86 (o(o(oo)))
127 ((((((o))))))
128 (ooooooo)
256 (oooooooo)
301 ((oo)(o(oo)))
424 (ooo(oooo))
454 (o((oo)(oo)))
512 (ooooooooo)
709 (((((((o)))))))
722 (o(ooo)(ooo))
886 (o(o(o(oo))))
MATHEMATICA
MGtree[n_]:=If[n===1, {}, MGtree/@Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
soQ[n_]:=Or[n===1, SameQ@@Length/@Cases[MGtree[n], {__}, {0, Infinity}]];
Select[Range[1000], soQ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jan 19 2018
STATUS
approved