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 A088770 #11 Sep 08 2022 08:45:12 %S A088770 6,10,13,16,25,28,31,34,46,49,58,70,73,91,94,100,130,133,136,151,160, %T A088770 163,178,181,184,199,205,214,226,238,244,256,265,283,298,301,304,325, %U A088770 331,364,409,424,433,436,448,478,490,493,511,514,520,529,553,556,559 %N A088770 a(n) = (A087683(n)-1)/2. %H A088770 Vincenzo Librandi, <a href="/A088770/b088770.txt">Table of n, a(n) for n = 1..4710</a> %t A088770 Rest[f[n_]:=PrimeQ[n - 10] && PrimeQ[n + 10]; lst={}; Do[If[f[n], AppendTo[lst, (n - 1) / 2]], {n, 5, 7!, 2}]; lst] (* _Vincenzo Librandi_, May 22 2017 *) %o A088770 (Magma) [(n-1)/2: n in [8..2000] |IsPrime(n+10) and IsPrime(n-10)]; // _Vincenzo Librandi_, May 22 2017 %Y A088770 Cf. A087683, A088762, A088764, A088766, A088768. %K A088770 nonn %O A088770 1,1 %A A088770 _Ray Chandler_, Oct 26 2003