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 A052189 #17 Feb 28 2025 05:56:19
%S A052189 20183,21893,25373,29251,30431,34613,50423,54833,56131,58111,63541,
%T A052189 66413,74453,74471,76543,76561,77933,78241,81421,107563,108421,110441,
%U A052189 112163,121403,122081,122561,131023,132893,132911,135283,137303,137831,143141,144593,145643
%N A052189 Primes p such that p, p+18, p+36 are consecutive primes.
%C A052189 Old name was "Primes p(k) such that p(k+2)-p(k+1)=p(k+1)-p(k)=18."
%H A052189 Amiram Eldar, <a href="/A052189/b052189.txt">Table of n, a(n) for n = 1..10000</a>
%e A052189 20183 is a term since , 20183, 20201, and 20219 are consecutive primes with difference of 18.
%t A052189 Select[Partition[Prime[Range[15000]], 3, 1], Differences[#] == {18, 18} &][[;; , 1]] (* _Amiram Eldar_, Feb 28 2025 *)
%o A052189 (PARI) list(lim) = {my(p1 = 2, p2 = 3); forprime(p3 = 5, lim, if(p2 - p1 == 18 && p3 - p2 == 18, print1(p1, ", ")); p1 = p2; p2 = p3);} \\ _Amiram Eldar_, Feb 28 2025
%Y A052189 Subsequence of A031936
%Y A052189 A033448 is a subsequence.
%Y A052189 Cf. A001223, A033451, A047948, A052188.
%K A052189 nonn
%O A052189 1,1
%A A052189 _Labos Elemer_, Jan 28 2000
%E A052189 Name changed by _Jon E. Schoenfield_, May 30 2018