%我#20 2018年9月10日23:44:34

%S 1,4,8,16,32,49，6412819625634336139251278412413721444，

%电话：1568204824012744280928883136409654885776627268598192，

%电话：960410976112361115212544163841680717161176891920821952224722310425088

%N Matula-Goebel系列数产生强大的根树。

%C一个正整数n是序列约化强根树的Matula-Goebel数，如果n=1或n是一个强大数（即其素数重数都大于1），其素数索引是序列约简强根树所有Matula-Goobel数，其中n的素数索引为素数（m）的数m除n。

%H<a href=“/index/Mat#matula”>与matula-Göbel数相关的序列的索引项</a>

%e系列化强根树的Matula-Goebel数序列与相应树开始：

%e 1:o（电子1：o）

%e 4：（oo）

%e 8：（ooo）

%e 16：（oooo）

%e 32：（ooooo）

%e 49：（oo）

%e 64：（oooooo）

%e 128：（ooooooo）

%e 196：（oo（oo））

%e 256：（ooooooo）

%e 343：（oo）

%e 361：（ooo）

%e 392：（ooo（oo）（oo，oo））

%e 512：（哦哦哦哦）

%e 784：（oooo（oo）（oo））

%t powgoQ[n_]：=或[n==1，和[Min@@FactorInteger[n][[All，2]]>1，和@@powgoQ/@PrimePi/@FactorIntiger[n][[All，1]]]；

%t选择[Range[1000]，powgoQ]（*_Gus Wiseman_，2018年8月31日*）

%t（*第二个程序：*）

%t嵌套[Function[a，Append[a，Block[{k=a[[-1]]+1}，While[Nand[AllTrue[#[All，-1]]，#>1&]，AllTrue[PrimePi[#[All，1]]]，MemberQ[a，#]&]]&@FactorInteger@k，k++]；k] ]]，{1}，44]（*Michael De Vlieger_，2018年8月5日*）

%Y参见A000081、A001694、A061775、A111299、A214577、A276625、A277098、A303431。

%Y参见A317102、A317707、A317708、A317709、A317710、A317711、A317712、A317717、A317718、A317719。

%K nonn公司

%O 1,2号机组

%A _Gus Wiseman_，2018年8月4日

%E由_Gus Wiseman_重写，2018年8月31日