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.
%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