A051015-OEIS公司

A051015号

Zeisel数。

105, 1419, 1729, 1885, 4505, 5719, 15387, 24211, 25085, 27559, 31929, 54205, 59081, 114985, 207177, 208681, 233569, 287979, 294409, 336611, 353977, 448585, 507579, 982513, 1012121, 1073305, 1242709, 1485609, 2089257, 2263811, 2953711, 3077705, 3506371, 3655861, 3812599 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1,1`
	评论	`选取任意整数A和B，并考虑由p（0）=1，p（i+1）=A*p（i）+B给出的线性递归关系。如果对于某些n>2，p（1），p（2）。。。，p（n）是不同的素数，那么这些素数的乘积称为Zeisel数。`
	链接	`M.F.Hasler和Lars Blomberg，n=1..9607的n，a（n）表（从开始的前70个术语M.F.哈斯勒)` `凯文·布朗，Zeisel数，MathPages网站。` `OEIS维基，Zeisel数.` `埃里克·魏斯坦的数学世界，Zeisel数.` `维基百科，Zeisel数.` `赫尔穆特·泽泽尔，形式为2^（k-1）+k的素数1994年2月24日，sci.mah新闻组。`
	数学	maxTerm=310^7；ZeiselQ[n_]：=模块[{a，b，pp，eq，r}，如果[PrimeQ[n]\|\|！SquareFreeQ[n]，False，pp=Join[{1}，FactorInteger[n][[All，1]]]；如果[Length[pp]<=3，False，eq=Thread[Rest[pp]==b+aMost[pp]]；r=减少[eq，{a，b}，整数]；r=！=错误]]]；p=3；A051015号=收割[While[p^3<maxTerm，q=下一次Prime[p]；当[pq^2<maxTerm时，如果[！IntegerQ[a=（q-p）/（p-1）]\|\|！整数q[b=（p^2-q）/（p-1）]，q=下一个素数[q]；继续[]]；r=b+aq；n=rpq；而[PrimeQ[r]&&n<maxTerm，Sow[n]；r=b+ar；n=r]；q=下一素数[q]]；p=下一素数[p]][[2,1]]；A051015号=选择[排序[A051015号]，ZeiselQ](Jean-François Alcover公司，2012年10月31日，在来自乔瓦尼·雷斯塔)
	黄体脂酮素	`（PARI）是_2015年5月15日（n） ={#（n=因子（n）~）>2&vecmax（n[2，]）==1&分母-M.F.哈斯勒2012年10月31日` `（哈斯克尔）` `a051015 n=a051015_list！！（n-1）` `a051015_list=过滤器zeisel[3，5..]，其中` zeisel x=0`notElem`ds&&length ds>2&& `所有（==0）（zipWith mod（tail ds）ds）&&all（==q）qs` `其中q:qs=（zipWith div（tail ds）ds）` `ds=zipWith（-）（尾部ps）ps` `ps=1:a027746_行x` `--莱因哈德·祖姆凯勒2014年12月15日`
	交叉参考	`囊性纤维变性。A027746号,A061422号,A252094型（A值），A252095型（B值）。` `上下文中的序列：A058844号 A297800型 A165382号A221449号 A076377号 A165374号` `相邻序列：A051012号 A051013号 A051014号A051016号 A051017号 A051018号`
	关键词	`非n`
	作者	`埃里克·韦斯特因`
	扩展	`更多术语来自大卫·沃瑟曼2002年2月19日` `由扩展卡斯滕·迈耶，2006年6月8日，但数值不正确。M.F.哈斯勒2012年10月31日` `小于等于（70）的值由计算得出Jean-François Alcover公司并由复核M.F.哈斯勒2012年10月31日` `值<10^15 by拉尔斯·布隆伯格2012年11月2日`
	状态	`经核准的`