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 A210702 #10 Sep 23 2022 15:11:06 %S A210702 0,1,2,5,8,14,16,17,19,20,25,35,38,55,62,67,73,82,121,130,140,160,191, %T A210702 232,233,245,260,283,308,379,391,437,481,607,650,673,784,790,841,856, %U A210702 920,1036,1114,1234,1241,1316,1402,1504,1540,1610,1684,1774,1811 %N A210702 Records in A210700. %F A210702 a(n) = A210700(A210701(n)). %t A210702 sml[n_]:=Module[{m=0},While[!PrimeQ[3n-m]||!PrimeQ[3n+m],m++];m]; DeleteDuplicates[ Array[sml,3000000],GreaterEqual] (* The program generates the first 43 terms of the sequence. *) (* _Harvey P. Dale_, Sep 23 2022 *) %Y A210702 Cf. A210701 (location of records). %K A210702 nonn %O A210702 1,3 %A A210702 _Jason Kimberley_, Oct 15 2012