|
| |
| |
|
|
|
1, 36, 72, 120, 144, 180, 420, 720, 1080, 1680, 2520, 6300, 9240
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
评论
|
a（9）大于960。
|
|
|
链接
|
|
|
|
数学
|
b[s_，t_]：=b[s，t]=如果[Length[s]<1，1，Sum[If[Mod[PrimeOmega[x]，2]==1-t&&Length[选择[s，Mod[#，x]==0&]]==1，b[s~补码~{x}，1-t]，0]，{x，s}]]；a[n_]：=a[n]=模块[{l，m}，l=Sort[FactorInteger[n]，#1[[2]]>#2[2]]&]；m=乘积[素数[i]^l[[i]][2]，{i，1，长度[l]}]；b[除数[m][2；；-2]]，Mod[PrimeOmega[m]，2]]]；收获[For[record=0；k=1，k<10^4，k++，If[a[k]>record，record=a[k]；打印[k，“”，a[k]]；母猪[k]]][[2,1]](*Jean-François Alcover公司2016年3月3日之后阿洛伊斯·海因茨*)
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
