|
%I #10 Oct 28 2023 11:10:38
%S 54,271,464,682,709,821,829,1510,1594,1726,1842,1853,2009,2086,2209,
%T 2600,2876,3253,3303,5463,5689,6252,6386,7064,7438,7620,7728,7918,
%U 8090,8145,8229,8631,8654,8828,9105,9184,9243,9997,10052,10074,10329,10934
%N Numbers n such that p(n), p(n)+6, p(n)+12, p(n)+18 are consecutive primes, where p(n) denotes n-th prime.
%H Zak Seidov, <a href="/A090832/b090832.txt">Table of n, a(n) for n = 1..1581</a>
%e p(271)=1741: 1741,1747,1753,1759 are consecutive primes,1747=1741+6,1753=1741+12,1759=1741+18
%t p[n_]:=Prime[n];Select[Range[15000],p[ #+1]-p[ # ]==p[ #+2]-p[ #+1]==p[ #+3]-p[ #+2]==6&] - _Zak Seidov_, Mar 05 2006
%t PrimePi[#[[1]]]&/@Select[Partition[Prime[Range[11000]],4,1],Differences[#]=={6,6,6}&] (* _Harvey P. Dale_, Oct 28 2023 *)
%Y Cf. A033451, A090833, A090834, A090835, A090836, A090837, A090838, A090839.
%K easy,nonn
%O 1,1
%A _Pierre CAMI_, Dec 09 2003
%E Corrected and extended by _Zak Seidov_, Mar 05 2006
|
