|
%I #24 Nov 27 2022 12:40:38
%S 17051707,92510963,92801029,93685439,107580877,129956263,135045091,
%T 141932129,147056531,168804553,215295583,215650027,222711131,
%U 224901491,235155673,237323551,239920979,242246687,244883383,253555097,255994261,267546091
%N Primes p such that q-p = 180, where q is the next prime after p.
%H Luke March, <a href="/A204673/b204673.txt">Table of n, a(n) for n = 1..1000</a> (First 100 terms from _M. F. Hasler_)
%H <a href="/index/Pri#gaps">Index entries for primes, gaps between</a>
%t a = {}; Do[If[Prime[x + 1] - Prime[x] == 180, AppendTo[a, Prime[x]]], {x, 1, 100000}]; a
%t Select[Partition[Prime[Range[146*10^5]],2,1],#[[2]]-#[[1]]==180&][[All,1]] (* _Harvey P. Dale_, Nov 27 2022 *)
%o (PARI) p=0; g=180; for(c=1,100, while(g+p!=p=nextprime(p+1),); write("c:/temp/gap-"g".txt", c" "p-g))
%K nonn
%O 1,1
%A _M. F. Hasler_, Jan 18 2012
|
