提议的
经核准的
编辑
psi[n_]：=模块[{p，e}，乘积[{p、e}=pe；p^e+p^（e-1），{pe，因子整数[n]}]]；
a[n_]：=模[{k=1}，而[！可除[psi[k！]，n]，k++]；k] ；a[2]=3；
数组[a，100](*Jean-François Alcover公司2020年10月15日，PARI之后*）
Robert Israel，<a href=“/1924年2月/b292024.txt“>n，a（n）表，n=1.-10000</a>
a（n）<=2n，具有等式，当n是素数>=5时。
a（n）<=2n。
a（p）=2便士-1 如果 第页 是 在里面 A005382号,否则 2便士.
