%I #15 May 04 2021 18:26:25

%S 11161,11171,11173,11177,11197,161561,474937,474941,474949,4005917,

%T 4005943,5984101,12352877,14821097,18416329,18416351,18416371,

%U 19622833,28334069,33426761,61714043,103887869,212299561,228433487,245416663,246522383,317706671

%N Least prime p(j) of 10 consecutive primes such that 2*p(k)+ 15015 is prime for k=j to j+9.

%C 15015 is the product of the first 5 odd primes.

%H Pierre CAMI, <a href="/A190793/b190793.txt">Table of n, a(n) for n = 1..46</a>

%e 11161 is the first p(j) of 14 consecutive primes such that 2*p(k)+15015 is prime for k=j to j+9.

%t okQ[n_] := Module[{k = 0}, While[k < 10 && PrimeQ[2*Prime[n + k] + 15015], k++]; k == 10]; Prime[Select[Range[100000], okQ]] (* _T. D. Noe_, May 24 2011 *)

%t p15015Q[n_]:=AllTrue[2#+15015&/@n,PrimeQ]; Select[Partition[Prime[ Range[ 17159000]],10,1],p15015Q][[All,1]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, May 04 2021 *)

%K nonn

%O 1,1

%A _Pierre CAMI_, May 20 2011