登录
A215029型
为了得到a(n),从m=n开始,设p=最大素数<m,如果m>0,则设m=m-p,如果m<=0,则设置m=m+p;重复操作,直到处理完p=2;设置a(n)=m。
9
0, 1, 2, 1, -1, 0, 0, 1, 1, 2, -1, 0, 0, 1, 1, 2, -1, 0, 0, 1, 1, 2, -1, 0, 0, 1, 0, 1, 0, 1, 1, 2, 0, 1, 0, 1, 0, 1, -1, 0, 1, 2, 0, 1, -1, 0, 1, 2, 0, 1, 0, 1, 0, 1, -1, 0, 1, 2, -1, 0, 0, 1, 1, 2, -1, 0, 1, 2, 0, 1, 0, 1, -1, 0, 0, 1, 0, 1, 0, 1, 1, 2, -1, 0, 0, 1, 0, 1, 0, 1, 1, 2, -1, 0, 1, 2, -1, 0, 0, 1, 0, 1, 1, 2, 0, 1, 0, 1, -1, 0, 0, 1, 0, 1, 1
抵消
0,3
链接
堆栈交换,素数模式2012年7月29日。
MAPLE公司
f: =proc(n)局部m,a,i,p;
如果n<=2,则返回(n);fi;
m: =n;a:=n;
对于i从1到n do
p: =首字母(m);
如果a>0,则a:=a-p,否则a:=a+p;fi;
m: =p;
如果m<=2,则返回(a);fi;
od;
#不应该到达这里
打印(“错误”);
结束;
[序列(f(i),i=0..120)];
黄体脂酮素
(PARI)A215029型(n) =如果(n<=2,n,my(mp=预素数(n-1),d=n);而(mp>0,如果(d>0,d-=mp,d+=mp);mp=预备素数(mp-1));(d); \\安蒂·卡图恩2018年11月28日
关键词
签名
作者
N.J.A.斯隆2012年8月5日
状态
经核准的