# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a079011
Showing 1-1 of 1

%I A079011 #16 Feb 11 2021 23:01:07
%S A079011 5,397,503,1823,1627,8317,5939,94153,69539,83117,444187,177019,428873,
%T A079011 1179649,955511,1625027,2541289,1290683,19856363,12183757,5412091,
%U A079011 23374859,27248701,38235013,21369059,34718041,84120737,59859131,125283913,44155159,70136597,324954127
%N A079011 Least prime p introducing prime-difference pattern {d, 2*d}, where d = 2*n, i.e., {p, p+2*n, p+2*n+4*n} = {p, p+2*n, p+6*n} are consecutive primes.
%e A079011 For n=3, d = 2*n = 6, d-pattern = {6, 12}, a(3) = 503, first corresponding prime triple is {503, 509, 521}.
%t A079011 d[x_] := Prime[x+1]-Prime[x]; t=Table[0, {70}]; Do[s=d[n]/2; If[(d[n+1]==4*s)&&(t[[s]]==0), t[[s]]=Prime[n]], {n, 2, 100000}]; t
%o A079011 (PARI) a(n) = my(p=5, q=3, r=2); until(r+2*n==q&&q+4*n==p, r=q; q=p; p=nextprime(p+1)); r; \\ _Jinyuan Wang_, Feb 10 2021
%Y A079011 Cf. A079012, A079013.
%K A079011 nonn
%O A079011 1,1
%A A079011 _Labos Elemer_, Jan 21 2003
%E A079011 Terms corrected and more terms from _Jinyuan Wang_, Feb 10 2021

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE