|
| |
| |
|
|
|
2, 6, 8, 10, 12, 14, 18, 20, 21, 22, 24, 26, 28, 32, 33, 34, 35, 38, 40, 42, 44, 46, 48, 50, 52, 55, 56, 57, 58, 62, 63, 66, 68, 70, 74, 75, 76, 77, 80, 82, 84, 86, 88, 91, 93, 94, 95, 96, 98, 99, 100, 104, 106, 110, 112, 114, 116, 118, 122, 123, 125, 126, 132
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
设f（n）=A050376号（n） 是第n个费米-迪拉克素数。严格划分或有限集{y_1，…，y_k}的FDH-数是f（y_1）**f（y_k）。
我们使用Mathematica函数CoprimeQ，这意味着单例不是互质的，除非它是{1}。
|
|
|
链接
|
|
|
|
例子
|
项序列及其对应的互质集开始于：
2: {1}
6: {1,2}
8: {1,3}
10: {1,4}
12: {2,3}
14: {1,5}
18: {1,6}
20: {3,4}
21: {2,5}
22: {1,7}
24: {1,2,3}
26: {1,8}
28:｛3,5｝
32: {1,9}
33: {2,7}
34: {1,10}
35: {4,5}
38: {1,11}
40: {1,3,4}
42: {1,2,5}
|
|
|
数学
|
FDfactor[n_]：=如果[n==1，{}，排序[Join@@Cases[FactorInteger[n]，{p_，k_}:>幂[p，Cases[Position[IntegerDigits[k，2]//反转，1]，{米}->2^（m-1）]]]]]；
nn=100；FDprimeList=数组[FDfactor，nn，1，Union]；
FDrules=映射索引[（#1->#2[[1]）&，FDprimeList]；
选择[Range[nn]，CoprimQ@@（FDfactor[#]/.FDrules）&]
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
状态
|
已批准
|
| |
|
|
