登录
A278500型
a(n)=最大k,使得n+1=素数,n+2=2*素数。..,n+k是k乘以素数,如果n+1不是素数,则a(n)=0。
4
1, 2, 0, 2, 0, 1, 0, 0, 0, 1, 0, 3, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 3, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 2, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 2, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0
抵消
1,2
评论
前4个出现在n=12720时,前5个出现在n=19440时。请参见A074200型.
链接
例子
a(12)=3等于13=1*素数、14=2*素数和15=3*素数。
数学
表[如果[CompositeQ[n+1],0,k=1;而[Times@@Boole@Map[PrimeQ,MapIndexed[#1/First@#2&,(n+Range@k)]]==1,k++];k-1],{n,120}](*迈克尔·德弗利格2016年12月1日*)
黄体脂酮素
(PARI)
A278500型(n) ={my(k=1);while(!((n+k)%k)&&i素数((n=k)/k)),k=k+1);(k-1);}
对于(n=1,2^20,写(“b278500.txt”,n,“”,A278500型(n) );
(方案)(定义(A278500型n) (let循环((k 1))(let((h(/(+n k)k)))(if(or(not(integer?h)))(A010051型h) )(-k 1)(回路(+1 k)))
交叉参考
囊性纤维变性。A072668号(零位置),A006093号(非零),A089965号(术语位置>=2),A278583型(条款>=3),A278585型(术语>=4)。
囊性纤维变性。A074200型(第一项的位置>=n)。
关键词
非n
作者
安蒂·卡图恩2016年11月30日
状态
经核准的