%I #11 May 06 2017 10:44:24
%S 397,487,739,757,907,1567,1999,2239,2269,2659,3037,3217,3697,3877,
%T 5167,5569,5689,5779,6199,6217,6469,6829,7669,7687,8089,8167,8677,
%U 8929,10099,10627,11239,11317,11677,12277,12409,13147,13159,14407,14419,14767
%N Primes p such that p, p+4 and p+12 are consecutive primes.
%C Subset of A046137.
%C Subsequence of A029710. - _R. J. Mathar_, May 06 2017
%H Zak Seidov, <a href="/A139385/b139385.txt">Table of n, a(n) for n = 1..1000.</a>
%t Select[Partition[Prime[Range[2000]],3,1],Differences[#]=={4,8}&][[All,1]] (* _Harvey P. Dale_, Apr 02 2017 *)
%o (PARI) isok(p) = isprime(p) && (nextprime(p+1) == p+4) && (nextprime(p+5) == p+12); \\ _Michel Marcus_, Oct 13 2013
%Y Cf. A046137.
%K nonn
%O 1,1
%A _Zak Seidov_, Apr 17 2008
|