0,3个

卡兰蒂，n=0..20000时的n，a（n）表

安蒂·卡图宁，数据补充：n，a（n）计算n=0..100003

堆栈交换，质数模式2012年7月29日。

f： =proc（n）局部m，a，i，p；

如果n<=2，则返回（n）；fi；

m： =n；a:=n；

从1到n do

p： =Preprime（m）；

如果a>0，则a:=a-p；否则a:=a+p；fi；

m： =p；

如果m<=2，则返回（a）；fi；

外径；

#不应该到达这里

打印（“错误”）；

结束；

[顺序（f（i），i=0..120）]；

（平价）A215029号（n） =如果（n<=2，n，my（mp=预充（n-1），d=n）；而（mp>0，if（d>0，d-=mp，d+=mp）；mp=预充（mp-1））；（d））\\安蒂·卡尔图宁2018年11月28日

囊性纤维变性。A215030型-A2150A235型,A214912.

上下文顺序：A016004号 A327802型 A284996年*A025908号 邮编：A134404 A334134飞机

相邻序列：A215026型 A215027号 A215028型*A215030型 A215031号 A215032型

签名

N、 斯隆2012年8月5日

经核准的