%I#21 2016年2月26日13:10:56

%S 3525587552171625371120146128114657289671449570752717687071，

%电话：9330381105230451190424914060501166341711719183922909971，

%电话：3235171135723709439928794537732549031165566821716021961564348635837436018666961594265805

%N数字N，这样N+2！，n+2+三！，n+2+3!+4!, n+2+3!+4+5!, n+2+3!+4!+5+6!, n+2+3!+4!+5+6!+7!, n+2+3!+4!+5+6!+7!+8!, n+2+3!+4+5+6!+7!+8!+9！，和n+2+3!+4!+5+6!+7!+8!+9!+10! 都是最好的。

%H Charles R Greathouse IV，n表，n=1..10000的a（n）</a>

%e 3525+2=3527（是质数）

%e 3525+2+3!=3533（是质数）

%e 3525+2+3!+4!=3557（为素数）

%e 3525+2+3!+4!+5!=3677（是质数）

%e 3525+2+3!+4!+5+6!=4397（是质数）

%e 3525+2+3!+4!+5+6!+7!=9437（是质数）

%e 3525+2+3!+4!+5+6!+7+8!=49757（是质数）

%e 3525+2+3!+4!+5+6!+7!+8!+9!=412637（是质数）

%e 3525+2+3!+4!+5+6!+7!+8!+9+10!=4041437（是质数）

%t r=累加@Array[#！&，9，2]；fQ[n_]：=并集[PrimeQ[n+r]]=={True}；k=1；lst={}；当[k<10^8时，如果[fQ@k，AppendTo[lst，k]]；k+=2]；第1次（*罗伯特·G·威尔逊诉_，2016年1月10日*）

%o（PARI）是（n）=对于（k=2,10，如果（！i素数（n+=k！），返回（0））；2016年2月23日，查尔斯·格里特豪斯四世

%o（PARI）列表（lim）=我的（v=列表（），p=2，q=3，g，n）；对于素数（r=5，lim+8，g=q-p；如果（g>6||（g<6&r-p>6），p=q；q=r；下一步）；n=p+6；对于（k=4,10，如果（！i素数（n+=k！），p=q；q=r；下一步（2））；列表（v，p-2）；p=q；q＝r）；Vec（v）\\_Charles R Greathouse IV_，2016年2月23日

%Y参考A054116，A267123。

%K nonn公司

%O 1，1

%A_Emre APARI_，2016年1月10日

%E a（11）从_Robert G.Wilson v_开始，2016年1月10日