检验过的

经核准的

提出

检验过的

编辑

提出

a[n_]：=模块[{k}，对于[k=FactorInteger[n][[1，1]]，k>=1，k---，如果[PrimeQ[n+k！]，返回[k]]]；0];

a/@范围[2100](*Jean-François Alcover公司2020年7月27日，Maple之后*）

经核准的

编辑

检验过的

经核准的

提出

检验过的

编辑

提出

因为阶乘素数1+k，所以n=1没有项！可能任意大(A002981号显示k值）-延斯·克鲁斯-安徒生2014年8月13日

Jens Kruse Andersen，<a href=“/A241423号/b241423.txt“>n表，n=2..1000时为a（n）</a>

经核准的

编辑

提出

经核准的

编辑

提出