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 A052166 #10 May 29 2018 00:51:22
%S A052166 37,223,307,457,853,877,1087,1297,1423,1993,2683,4513,4783,5227,6823,
%T A052166 7873,8287,10453,13687,13873,16183,17383,20743,21313,23053,23557,
%U A052166 23623,24103,27733,29017,31387,33343,33613,35527,36007,37987,40423,42013
%N A052166 Primes at which the difference pattern X424Y (X and Y >= 6) occurs in A001223.
%e A052166 37 is here because 37 + 4 = 41, 37 + 4 + 2 = 43, 37 + 4 + 2 + 4 = 47 are consecutive primes and the prime preceding 37 is 31, the prime following 47 is 53, and the corresponding differences are 6 and 6. Thus the d-pattern "around 37" is {6,4,2,4}.
%t A052166 okQ[n_List]:=Module[{d=Differences[n]},Take[d,{2,4}]=={4,2,4} && First[d]>5&&Last[d]>5]; Transpose[Select[ Partition[ Prime[ Range[ 4400]], 6, 1],okQ]][[2]] (* _Harvey P. Dale_, Jul 17 2011 *)
%Y A052166 Cf. A001223, A052160, A052162-A052168, A022008, A047078.
%K A052166 nonn
%O A052166 1,1
%A A052166 _Labos Elemer_, Jan 26 2000