|
%I #22 May 30 2018 03:55:30
%S 255767,704321,806821,884501,913067,1065137,1216177,1448497,1526191,
%T 1532471,1640971,1918571,2071087,2275067,2276431,2336671,2347591,
%U 2376721,2778547,3098561,3190601,3248941,3259001,3452107,3558481
%N Primes p such that p, p+36, p+72 are consecutive primes.
%C Old name was: Primes p(k) such that p(k+2)-p(k+1)=p(k+1)-p(k)=36.
%H Zak Seidov, <a href="/A052197/b052197.txt">Table of n, a(n) for n = 1..3000</a>
%e a(3)=704321 is followed by 704357 and 704393, consecutive primes with equal distance of d=36.
%t Select[Partition[Prime[Range[255000]],3,1],Differences[#]=={36,36}&][[All,1]] (* _Harvey P. Dale_, Feb 16 2018 *)
%o (PARI) is(n)=nextprime(n+1)==n+36 && nextprime(n+37)==n+72 && isprime(n) \\ _Charles R Greathouse IV_, Jan 07 2013
%Y Cf. A001223, A033451, A047948, A052195.
%K nonn
%O 1,1
%A _Labos Elemer_, Jan 28 2000
%E New name from _Charles R Greathouse IV_, Jan 07 2013
|
