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 A309066 #23 Jul 16 2019 11:51:37
%S A309066 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,21,22,23,24,26,27,29,
%T A309066 30,31,32,33,35,36,37,38,39,40,43,44,45,46,48,49,51,53,57,59,61,63,65,
%U A309066 66,68,69,70,71,73,75,77,78,79,81,85,86,87,88,89,90,91,92,93,94,95
%N A309066 Integers m such that A053319(m) is a term in A014574.
%e A309066 A053319(2) = 6 and 6 is in A014574, so a(1) = 2.
%e A309066 A053319(3) = 6 and 6 is in A014574, so a(2) = 3.
%e A309066 A053319(4) = 12 and 12 is in A014574, so a(3) = 4.
%t A309066 tpmidQ[n_] := And @@ PrimeQ[n + {-1, 1}]; ind = 0; tp = {4}; s = {}; Do[If[ tpmidQ[n], ind++; If[tpmidQ[n - tp[[-1]]], AppendTo[s, ind]]; AppendTo[tp, n]], {n, 6, 10^4}]; s (* _Amiram Eldar_, Jul 12 2019 *)
%Y A309066 Cf. A014574, A053319, A309067.
%K A309066 nonn
%O A309066 1,1
%A A309066 _Dmitry Kamenetsky_, Jul 10 2019