cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A204673 Primes p such that q-p = 180, where q is the next prime after p.

This page as a plain text file.
%I A204673 #24 Nov 27 2022 12:40:38
%S A204673 17051707,92510963,92801029,93685439,107580877,129956263,135045091,
%T A204673 141932129,147056531,168804553,215295583,215650027,222711131,
%U A204673 224901491,235155673,237323551,239920979,242246687,244883383,253555097,255994261,267546091
%N A204673 Primes p such that q-p = 180, where q is the next prime after p.
%H A204673 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 A204673 <a href="/index/Pri#gaps">Index entries for primes, gaps between</a>
%t A204673 a = {}; Do[If[Prime[x + 1] - Prime[x] == 180, AppendTo[a, Prime[x]]], {x, 1, 100000}]; a
%t A204673 Select[Partition[Prime[Range[146*10^5]],2,1],#[[2]]-#[[1]]==180&][[All,1]] (* _Harvey P. Dale_, Nov 27 2022 *)
%o A204673 (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 A204673 nonn
%O A204673 1,1
%A A204673 _M. F. Hasler_, Jan 18 2012