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 A052168 #27 Aug 17 2023 22:38:05
%S A052168 1867,3457,5647,15727,79687,88807,101107,257857,266677,276037,284737,
%T A052168 340927,354247,375247,402757,419047,427237,463447,470077,626617,
%U A052168 666427,736357,823717,855727,959467,978067,1022377,1043587,1068247,1118857
%N A052168 Primes at which difference pattern X4242Y (X and Y >= 6) occurs in A001223.
%C A052168 All terms are == 7 (mod 30). - _Zak Seidov_, May 07 2017
%H A052168 Michael De Vlieger, <a href="/A052168/b052168.txt">Table of n, a(n) for n = 1..10000</a> (First 528 terms from Zak Seidov.)
%e A052168 1867 is here because the successor primes (1867),1871,1873,1877,1879 give 4242 difference pattern. The primes around this island are 1861 and 1889 in distance 6 and 10 resp. Thus the d-pattern "around 1867" is {6,4,2,4,2,10}. [corrected by _Zak Seidov_, May 07 2017]
%t A052168 m=1867; Reap[Do[While[ PrimeQ[m] m = m + 30]; If[
%t A052168 m > NextPrime[m, -1] + 5 && AllTrue[m + {4, 6, 10, 12}, PrimeQ] && NextPrime[m + 12] > m + 17, Sow[m]]; m = m + 30, {10^5}]][[2, 1]] (* _Zak Seidov_, May 07 2017 *)
%Y A052168 Cf. A001223, A052160, A052162-A052168, A022008, A047078.
%K A052168 nonn
%O A052168 1,1
%A A052168 _Labos Elemer_, Jan 26 2000