%I #15 Apr 09 2022 09:44:12
%S 162143,221327,259033,273367,282493,283303,285871,294563,296843,
%T 341357,377393,379207,390581,425713,430193,453461,544031,552403,
%U 573571,643303,643781,646453,694123,694651,714377,726221,729073,732373,736511,762121,780733,787361,797207
%N Primes p such that q - p = 66, where q is the next prime after p.
%H Pierre CAMI, <a href="/A225811/b225811.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Prime[Range[80000]], NextPrime[#] - # == 66 &] (* _T. D. Noe_, Jul 30 2013 *)
%t Select[Partition[Prime[Range[65000]],2,1],#[[2]]-#[[1]]==66&][[All,1]] (* _Harvey P. Dale_, Apr 09 2022 *)
%K nonn
%O 1,1
%A _Daniel Hipley_, Jul 29 2013
|