%I #21 May 30 2018 03:55:35

%S 247099,689467,1008617,1629767,1658627,2024647,2750999,2811719,

%T 2880907,2921777,3264449,3295027,3311317,3365449,3555269,3668419,

%U 4059229,4412099,4440529,4549309,4619357,4690219,4802947,4955179,5115259

%N Primes p such that p, p+42, p+84 are consecutive primes.

%C Old name was: Primes p(k) such that p(k+2)-p(k+1)=p(k+1)-p(k)=42.

%H Zak Seidov, <a href="/A052198/b052198.txt">Table of n, a(n) for n = 1..2000</a>

%t Select[Partition[Prime[Range[400000]],3,1],Differences[#]=={42,42}&][[All,1]] (* _Harvey P. Dale_, May 28 2017 *)

%o (PARI) is_A052198(n)=nextprime(n+1)==n+42 && nextprime(n+43)==n+84 && isprime(n) \\ _Charles R Greathouse IV_, Jan 07 2013, typo corrected by _M. F. Hasler_, Jan 13 2013

%Y Cf. A001223, A033451, A047948, A052197.

%K nonn

%O 1,1

%A _Labos Elemer_, Jan 28 2000

%E New name from _Charles R Greathouse IV_, Jan 07 2013