|
| |
|
| A135044号 |
| a（1）=1，然后a（c）=p和a（p）=c，其中c=T_c（r，k）和p=T_p。请参见公式。 |
|
5
|
|
|
|
1, 4, 9, 2, 16, 7, 6, 13, 3, 19, 26, 17, 8, 23, 41, 5, 12, 67, 10, 29, 59, 37, 14, 83, 179, 11, 43, 331, 20, 47, 39, 109, 277, 157, 53, 431, 22, 1063, 31, 191, 15, 2221, 27, 61, 211, 71, 30, 599, 1787, 919, 241, 3001, 35, 73, 8527, 127, 1153, 79, 21, 19577, 44, 89, 283
(列表；图表；参考；听；历史；文本；内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
评论
|
用复合物交换素数，用复合物替换素数，等等。
将j阶的第k个素数与j阶的第k个复合交换，反之亦然。
正整数的自逆置换。
|
|
|
链接
|
N.Fernandez，素数阶[缓存副本，包括作者许可]
|
|
|
配方奶粉
|
|
|
|
例子
|
更一般地说，根据费尔南德斯论文中描述的筛选过程，取数组中的素数：
行[1]（n）=2，7，13，19，23。。。
第[2]（n）行=3，17，41，67，83。。。
行[3]（n）=5，59，179。。。
第[4]（n）行=11277。。。
我们将此称为T_p（n，k）
也以类似方式组织复合材料，但我们在筛子中使用“复合”编号位置：
行[1]（n）=4、6、8、10、14、20、22。。。
第[2]（n）行=9、12、15、18、24。。。
第[3]行（n）=16、21、25。。。
我们将此称为T_c（n，k）
如果我们现在取自然数，并将每个数字（除了1）与在另一个数组中保持相同位置的数字交换，那么我们得到序列：1、4、9、2、16、7、6、13，例如a（8）=13（13在“素数”表中的位置与8在“合成”表中的位置相同）。（结束）
|
|
|
MAPLE公司
|
如果n=1，则
1；
elif是素数（n）then
idx：=-1；
从1到r do
从1到c
idx：=[r，c]；
结束条件：；
断裂；
结束条件：；
结束do：
如果键入（idx，list），则
断裂；
结束条件：；
结束do：
其他的
idx：=-1；
从1到r do
从1到c
idx：=[r，c]；
结束条件：；
断裂；
结束条件：；
结束do：
如果键入（idx，list），则
断裂；
结束条件：；
结束do：
结束条件：；
|
|
|
数学
|
复合[n_Integer]：=块[{k=n+PrimePi@n公司+1}，While[k！=n+PrimePi@k公司+1，k++]；k] ；复合性[n_]：=块[{c=1，k=n}，而[(PrimeQ@千| | k==1），k=k-1-PrimePi@k公司; c++]；c] ；素性[n_]：=块[{c=1，k=n}，While[底漆Q@k，k=PrimePi@k公司; c++]；c] ；
ckj[k_，j_]：=选择[表格[复合@n，{n，10000}]，复合度@#==j&][[k]]；pkj[k_，j_]：=选择[表格[素数@n，{n，3000}]，素数@#==j&][[k]]；f[0]=0；f[1]=1；
f[n_]：=如果[PrimeQ@n，pn=底漆@n; ckj[Position[Select[Table[Prime@i，{i，150}]，素数@#==pn&]，n][[1，1]]，pn]，cn=复合度@n; pkj[Position[Select[Table[Composite@i，{i，500}]，Compositeness@#==cn&]，n][[1，1]]，cn]]；数组[f，64](*罗伯特·威尔逊v*)
|
|
|
交叉参考
|
囊性纤维变性。A000040型,A007097号,A049076号,A049078号-A049081号,A058322号,A058324号-A058328号,A093046号,A002808号,A006508号,A059981美元,A078442号,A236854型.
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
