[go: up one dir, main page]

login
A190793
Least prime p(j) of 10 consecutive primes such that 2*p(k)+ 15015 is prime for k=j to j+9.
1
11161, 11171, 11173, 11177, 11197, 161561, 474937, 474941, 474949, 4005917, 4005943, 5984101, 12352877, 14821097, 18416329, 18416351, 18416371, 19622833, 28334069, 33426761, 61714043, 103887869, 212299561, 228433487, 245416663, 246522383, 317706671
OFFSET
1,1
COMMENTS
15015 is the product of the first 5 odd primes.
LINKS
EXAMPLE
11161 is the first p(j) of 14 consecutive primes such that 2*p(k)+15015 is prime for k=j to j+9.
MATHEMATICA
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 *)
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 *)
CROSSREFS
Sequence in context: A250687 A342246 A001727 * A247925 A359871 A362446
KEYWORD
nonn
AUTHOR
Pierre CAMI, May 20 2011
STATUS
approved