%I #18 Feb 23 2016 09:55:26
%S 11,15,99,231,351,455,725,3525,4935,5405,5709,7575,7641,12545,12891,
%T 13749,16065,19859,20475,23969,27791,28049,28571,42459,54615,58755,
%U 61979,64481,71835,81011,86261,88649
%N Integers n such that n+2!, n+2!+3!, n+2!+3!+4!, n+2!+3!+4!+5!, n+2!+3!+4!+5!+6!, and n+2!+3!+4!+5!+6!+7! are all prime.
%H Charles R Greathouse IV, <a href="/A267123/b267123.txt">Table of n, a(n) for n = 1..10000</a>
%e 99+2!=101 (is prime)
%e 99+2!+3!=107 (is prime)
%e 99+2!+3!+4!=131 (is prime)
%e 99+2!+3!+4!+5!=251 (is prime)
%e 99+2!+3!+4!+5!+6!=971 (is prime)
%e 99+2!+3!+4!+5!+6!+7!=6011 (is prime)
%t r = {2, 8, 32, 152, 872, 5912}; fQ[n_] := Union[ PrimeQ[n + r]] == {True}; Select[ Range@ 100000, fQ] (* _Robert G. Wilson v_, Jan 10 2016 *)
%o (PARI) is(n)=for(k=2,7,if(!isprime(n+=k!), return(0))); 1 \\ _Charles R Greathouse IV_, Feb 23 2016
%o (PARI) list(lim)=my(v=List(),p=2,q=3,g,n); forprime(r=5,lim+8, g=q-p; if(g>6 || (g<6 && r-p>6), p=q;q=r; next); n=p+6; for(k=4,7, if(!isprime(n+=k!), p=q;q=r;next(2))); listput(v,p-2);p=q;q=r); Vec(v) \\ _Charles R Greathouse IV_, Feb 23 2016
%Y Cf. A054116, A267125.
%K nonn
%O 1,1
%A _Emre APARI_, Jan 10 2016