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 A102333 #13 Feb 18 2025 04:04:11
%S A102333 108247,121507,166783,169567,178207,216133,257053,258763,272863,
%T A102333 274123,372613,383533,384343,396157,413143,501577,562477,577153,
%U A102333 581353,635293,721267,727273,738937,769903,908113,917713,932497,937903,965467,980377,989647,1008547,1126537
%N A102333 Initial terms of quartets of consecutive primes as follows: {p, p+16, p+24, p+40}. The corresponding difference-pattern is {16,8,16}.
%C A102333 A generalization of A052378.
%H A102333 Amiram Eldar, <a href="/A102333/b102333.txt">Table of n, a(n) for n = 1..10000</a>
%F A102333 a(n) == 1 (mod 6). - _Amiram Eldar_, Feb 18 2025
%t A102333 Transpose[Select[Partition[Prime[Range[78000]],4,1],Differences[#] == {16,8,16}&]][[1]] (* _Harvey P. Dale_, Mar 18 2012 *)
%o A102333 (PARI) list(lim) = {my(p1 = 2, p2 = 3, p3 = 5); forprime(p4 = 7, lim, if(p2 - p1 == 16 && p3 - p2 == 8 && p4 - p3 == 16, print1(p1, ", ")); p1 = p2; p2 = p3; p3 = p4);} \\ _Amiram Eldar_, Feb 18 2025
%Y A102333 Cf. A001223, A022008, A052162, A052163, A052164, A052165, A052166, A052167, A052168, A052378, A067140, A067141, A102332.
%K A102333 nonn
%O A102333 1,1
%A A102333 _Labos Elemer_, Jan 06 2005