编号：A006509-OEIS

搜索： 编号：a006509

显示1-1个结果（共1个）。

第页1

排序：关联|参考文献|数|被改进的|创建格式：长的|短的|数据

A006509号

Cald序列：a（n+1）=a（n）-素数（n），如果该值为正值且为新值，则为a（n；从a（1）=1开始。
（原名M2539）

+0个
20

1, 3, 6, 11, 4, 15, 2, 19, 38, 61, 32, 63, 26, 67, 24, 71, 18, 77, 16, 83, 12, 85, 164, 81, 170, 73, 174, 277, 384, 275, 162, 35, 166, 29, 168, 317, 468, 311, 148, 315, 142, 321, 140, 331, 138, 335, 136, 347, 124, 351, 122, 355, 116, 357, 106, 363, 100, 369, 98, 375, 94, 377, 84, 391, 80, 393, 76, 407, 70, 417, 68, 421, 62, 429, 56, 435, 52, 441, 44, 445, 36, 455, 34, 465, 898, 459, 902, 453, 910, 449, 912, 1379, 900, 413, 904, 405, 908, 399, 920, 397, 938, 1485, 928, 365, 934, 1505, 2082, 1495, 2088, 1489, 888, 281, 894, 1511, 892, 261, 0, 643, 1290, 637, 1296, 635, 1308, 631, 1314, 623, 1324, 615, 1334, 607, 1340 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1,2`
	评论	`此序列与A117128号（“素数的Recamán变换”）是（i）偏移量（此处为0）和（ii）在第二种情况下，无论是否已经发生（因此重复发生），都使用总和，而在这里，如果总和已经发生，则a（n+1）=0（因此除零之外没有重复项）-M.F.哈斯勒2024年3月6日`
	参考文献	`F.Cald，问题356，方济会秩序，J.Rec.数学。，7（1974年第4号），318；第10期（1977-78年第1期），第62-64页。` `“Cald’s Sequence”，《Popular Computing》（加州卡拉巴萨），第4卷（第41期，1976年8月），第16-17页。` `N.J.A.Sloane和Simon Plouffe，《整数序列百科全书》，学术出版社，1995年（包括该序列）。`
	链接	`T.D.Noe，n=1..10000时的n，a（n）表` `弗朗西斯·卡尔德等人，第356题，方济会阶，解与猜想，J.Rec.数学。，10（编号：1977-78），62-64：第62页,第63页,第64页.[注释副本]` `R.G.威尔逊，给N.J.A.Sloane的信及其附件，1989年1月`
	MAPLE公司	`M1:=500000；a： =阵列（0..M1）；have：=数组（0..M1）；a[0]：=1；` `对于从0到M1的n，确实有[n]：=0；od：有[0]：=1；有[1]：=1；` `M2：=2000；nmax:=M2；对于从1到M2的n，做p:=ithprime（n）；i： =a[n-1]-p；j： =a[n-1]+p；` `如果i>=1且[i]=0，则a[n]：=i；有[i]：=1；` `elif j<=M1且[j]=0，则a[n]：=j；具有[j]：=1；` `elif j<=M1，则a[n]：=0；其他nmax:=n-1；断裂；fi；日期：` `#为了获得A006509号:` `[seq（a[n]，n=0..M2）]；` `#获取A112877号（由于中的偏移量不同，因此偏移了1A006509号):` `zzz：=[]；对于从0到nmax的n，如果a[n]=0，那么做zzz:=[op（zzz），n]；fi；od：[seq（zzz[i]，i=1..nops（zzz））]；`
	数学	`lst={1}；f:=块[｛b=最后@lst，p=质数@长度@lst}，如果[b>p&&！成员Q[lst，b-p]，附加到[lst、b-p]；做[f，{n，60}]；第一次(罗伯特·威尔逊v2006年4月25日）`
	黄体脂酮素	`（哈斯克尔）` `a006509 n=a006509_列表！！（n-1）` `a006509_list=1:f[1]a000040_list，其中` f xs'@（x:_）（p:ps）\|x'>0&x'`非元素`xs=x'：f（x'：xs）ps \|x“”“notElem`xs=x''”：f（x“”：xs）ps `\|否则=0:f（0:xs）ps` `其中x'=x-p；x’=x+p` `--Reinhard Zumkeller公司2011年10月17日` `（Python）` `从sympy导入primerange，prime` `定义aupton（术语）：` `alst=[1]` `对于枚举中的n，pn（素数范围（1，素数（项）+1），start=1）：` `x、 y=alst[-1]-pn，alst[-1]+pn` `如果x>0且x不在alst中：alst.append（x）` `elif y>0且y不在alst中：alst.append（y）` `其他：alst.append（0）` `返回alst` `打印（aupton（130））#迈克尔·S·布兰尼基2021年5月30日` `（Python）` `从sympy导入nextprime` `从itertools导入islice` `def agen（）：#术语生成器` `pn，an，基准=2，1，{1}` `为True时：` `产生一个` `如果（m:=an+pn）>0，则an=m，并且m不在aset-else p如果（p:=an+pn）不在aset-else 0` `附加（a）` `pn=下一素数（pn）` `打印（列表（islice（agen（），131））#迈克尔·S·布兰尼基2024年3月7日` `（PARI）A006509号_小于等于（N，U=0）=向量（N，i，N=如果（i>1，my（p=素数（i-1）））；如果（N>p&！位测试（U，N-p），N-p！位测试（U，N+p），N+p），1）；N&&U+=1<<N；否）\\M.F.哈斯勒2024年3月6日`
	交叉参考	`参见。A005132号,A093903号,A112877号&A370951型（零指数）。` `A111338号给出（推测）按递增顺序排序的当前序列的术语，以及A111339号给出（推测）当前序列中缺失的数字。` `参见。A117128号,A117129号,A064365号,A000040型.`
	关键词	`非n,美好的`
	作者	`N.J.A.斯隆`
	扩展	`来自Larry Reeves（larryr（AT）acm.org）的更多术语，2001年7月20日` `添加了更多术语N.J.A.斯隆，2006年4月20日，以显示与A117128号.` `条目修订者N.J.A.斯隆2024年3月6日`
	状态	`经核准的`

第页1

搜索在0.005秒内完成