编辑
经核准的
P: =proc(n)局部i,j,k,w;对于i从1乘1到n,做w:=0;k: =ithprime(i);j: =k;当k>0时,do w:=w+k-(trunc(k/2)*2);k: =trunc(k/2);od;如果是i素数(j+w),则打印(j);fi;od;结束:P(1000);
P: =proc(n)局部i,j,k,w;对于i,从1乘1到n do w:=0;k: =ithprime(i);j: =k;当k>0时,do w:=w+k-(trunc(k/2)*2);k: =trunc(k/2);od;如果是i素数(j+w),则打印(j);fi;od;结束:P(1000); # 适应 属于 程序 通过 保罗 P(P). 熔岩 对于 A048519号
检验过的
提出
米歇尔·马库斯:是的,我明白了,谢谢
囊性纤维变性。A000120号,A092391号: (n个+A000120号(n), ), A048519号: (以10为基数的模拟).
囊性纤维变性。A243442号: (p的模拟-A000120号(p)).
姓名编辑人M.F.哈斯勒2018年11月7日
M.F.哈斯勒:完成!(我选择了“:”以避免双括号&它少了1个字符,但我不介意。)
米歇尔·马库斯:您会像在A320868和A320869中那样用括号格式化交叉参考吗;并在扩展名中添加“名称编辑人…”
选择[Prime@Range@400,PrimeQ[#+Total@Integer Digits[#,2]]&](*迈克尔·德弗利格2018年11月6日*)