OFFSET
1,1
COMMENTS
An equivalent definition of this sequence: smallest prime which gives a cluster of primes with the spacing pattern 2*n; x; 2*n, x > 0.
A229021 gives the record values. - Arkadiusz Wesolowski, Sep 11 2013
EXAMPLE
Difference two - primes: 5, 7, 11, 13.
Difference four - primes: 7, 11, 13, 17.
Difference six - primes: 23, 29, 31, 37.
MATHEMATICA
lst = {}; Do[a = 3; While[True, b = NextPrime[a]; If[b - a == n && NextPrime[b, 2] - NextPrime[b] == n, AppendTo[lst, a]; Break[]]; a = b], {n, 2, 68, 2}]; lst
Table[SelectFirst[Partition[Prime[Range[16*10^5]], 4, 1], AllTrue[{#[[2]]-#[[1]], #[[4]]- #[[3]]}, EvenQ]&&#[[2]]-#[[1]]==#[[4]]-#[[3]]==2n&], {n, 35}][[All, 1]] (* Harvey P. Dale, Jun 07 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Arkadiusz Wesolowski, Jun 14 2013
STATUS
approved