|
|
例子
|
术语序列及其相应系统开始于：
1: {}
2: {{}}
21: {{1},{1,1}}
195:｛｛1｝，｛2｝，｛1，2｝｝
1365: {{1},{2},{1,1},{1,2}}
25935: {{1},{2},{1,1},{1,2},{1,1,1}}
435435: {{1},{2},{1,1},{3},{1,2},{1,3}}
|
|
|
数学
|
素数MS[n_]：=如果[n==1，{}，扁平[Cases[FactorInteger[n]，{p_，k_}:>表[PrimePi[p]，{k}]]]；
zsm[s_]：=使用[{c=Select[Subset[Range[Length[s]]，{2}]，GCD@@s[[#]]>1&]}，如果[c=={}，s，zsm[Sort[Append[Delete[s，List/@c[[1]]]，LCM@@s[[c[1]]]]；
dae=选择[Range[100000]，SquareFreeQ[#]&&Length[zsm[primeMS[#]]]<=1&]；
表[dae[[位置[PrimeOmega/@dae，k][[1，1]]]，{k，第一个[Split[Union[PrimeOmega/@dae]，#2==#1+1&]]}]
|
