%I#5 2019年3月21日17:22:13
%S 5,10,13,15,17,20,23,25,26,30,34,35,37,39,40,43,45,46,50,51,52,60,61,
%电话65,67,68,69,70,73,74,75,78,80,85,86,89,90,91,92,95100102103104,
%电话:105107111115117119120122125129130134135136138140
%N深度为3的有根树的Matula-Goebel数。
%C编号n,使A109082(n)=3。
%e深度为3的所有有根树的序列及其Matula-Goebel编号开始于:
%e 5:((o))
%e 10:(o(o))
%e 13:((o(o)))
%e 15:(o)(o))
%e 17:(((oo))
%e 20:(oo((o)))
%e 23:((o)(o))
%e 25:((o))
%e 26:(o(o(o))
%e 30:(o(o)(o))
%e 34:(o((oo))
%e 35:((o))(oo)
%e 37:((oo(o))
%e 39:(o)(o(o))
%e 40:(ooo((o)))
%e 43:(o(oo))
%e 45:(o)(o)
%e 46:(o((o)(o))
%e 50:(o(o))
%e 51:((o)((oo))
%e 52:(oo(o(o)))
%e 60:(oo(o)(o))
%t选择[Range[100],Length[NestWhileList[Times@@PrimePi/@FactorInteger[#][[All,1]]&,#,#>1&]]-1==3&]
%Y参见A000081、A003963、A007097、A102378、A318400、A324927、A324930。
%K nonn公司
%O 1,1号机组
%A _古斯·维塞曼_,2019年3月21日
|