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 A101788 #5 May 23 2024 04:26:47
%S A101788 0,1,1,2,3,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,17,18,19,20,21,22,23,
%T A101788 24,25,26,27,28,28,29,30,31,32,33,34,35,36,37,38,39,39,40,41,41,42,43,
%U A101788 44,45,46,47,48,49,50,51,52,52,53,54,54,55,56,57,58,59,60,61
%N A101788 a(n) = n - A101787(n).
%t A101788 With[{m = 100}, Range[m] - Accumulate[Table[Boole[And @@ PrimeQ[{4, 8}*i - 1]], {i, 1, m}]]] (* _Amiram Eldar_, May 23 2024 *)
%Y A101788 Cf. A002515, A101787.
%K A101788 easy,nonn
%O A101788 1,4
%A A101788 Douglas Stones (dssto1(AT)student.monash.edu.au), Dec 16 2004