A079016 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

Other ways to Give

A079016

Suppose p and q = p+12 are primes. Define the difference pattern of (p,q) to be the successive differences of the primes in the range p to q. There are 14 possible difference patterns, namely [12], [2,10], [4,8], [6,6], [8,4], [10,2], [2,4,6], [2,6,4], [4,2,6], [4,6,2], [6,2,4], [6,4,2], [2,4,2,4] and [4,2,4,2]. Sequence gives smallest value of p for each difference pattern, sorted by magnitude.

5, 7, 17, 19, 29, 31, 47, 67, 89, 137, 139, 199, 397, 1601

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

Table of n, a(n) for n=1..14.

EXAMPLE

p=1601, q=1613 has difference pattern [6,2,4] and {1601,1607,1609,1613} is the corresponding consecutive prime 4-tuple.

MATHEMATICA

Function[s, Function[t, Union@ Flatten@ Map[s[[First@ Position[t, #]]] &, {{12}, {2, 10}, {4, 8}, {6, 6}, {8, 4}, {10, 2}, {2, 4, 6}, {2, 6, 4}, {4, 2, 6}, {4, 6, 2}, {6, 2, 4}, {6, 4, 2}, {2, 4, 2, 4}, {4, 2, 4, 2}}]]@ Map[Differences@ Select[Range[#, # + 12], PrimeQ] &, s]]@ Select[Prime@ Range[10^3], PrimeQ[# + 12] &] (* Michael De Vlieger, Feb 25 2017 *)

CROSSREFS

A022006(1)=5, A022007(1)=7, A078847(1)=17, A078851(1)=19, A078848(1)=29, A078855(1)=31, A047948(1)=47, A078850(1)=67, A031930(1)=A000230(6)=199, A046137(1)=7, A078853(1)=1601.

Cf. A079017-A079024.

Sequence in context: A122565 A369105 A247607 * A106120 A106121 A185022

Adjacent sequences: A079013 A079014 A079015 * A079017 A079018 A079019

KEYWORD

fini,full,nonn

AUTHOR

Labos Elemer, Jan 24 2003

STATUS

approved