|
%I #7 Jan 19 2019 04:14:58
%S 47,53,59,151,157,163,167,173,179,251,257,263,257,263,269,367,373,379,
%T 557,563,569,587,593,599,601,607,613,647,653,659,727,733,739,941,947,
%U 953,971,977,983,1097,1103,1109,1117,1123,1129,1181,1187,1193
%N List of triples of primes with common difference 6.
%H Harvey P. Dale, <a href="/A128940/b128940.txt">Table of n, a(n) for n = 0..1001</a>
%e 47, 53, 59
%e 151, 157, 163
%e 167, 173, 179
%e .....
%p for i from 1 by 1 to 400 do if ithprime(i+1) = ithprime(i) + 6 and ithprime(i+2) = ithprime(i) + 12 then print(ithprime(i),ithprime(i+1),ithprime(i+2)); fi; od;
%t Select[Partition[Prime[Range[200]],3,1],Differences[#]=={6,6}&]//Flatten (* _Harvey P. Dale_, Dec 09 2018 *)
%K nonn
%O 0,1
%A _Zerinvary Lajos_, Apr 27 2007
|
