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 A362461 #15 May 10 2023 22:39:29
%S A362461 3,4,5,9,10,11,13,15,16,18,19,22,24,25,29,30,34,37,40,42,43,48,49,52,
%T A362461 55,57,59,64,66,70,71,72,79,80,81,82,92,93,94,96,98,99,100,102,105,
%U A362461 107,110,113,114,115,118,119,120,121,126,132,133,134,136,138,141,143,146,147,148,149,151,154,155,157,160,164,166
%N A362461 Indices of 0's in A362460.
%H A362461 Rémy Sigrist, <a href="/A362461/b362461.txt">Table of n, a(n) for n = 1..10000</a>
%H A362461 Rémy Sigrist, <a href="/A362461/a362461.txt">C program</a>
%t A362461 A000959[upto_]:=Module[{s=2,a=Range[1,upto,2]},While[s<Length[a]&&a[[s]]<=Length[a],a=Drop[a,{a[[s]],-1,a[[s++]]}]];a];
%t A362461 A362461[upto_]:=Module[{d=A000959[upto]},Table[If[First[d=Abs[Differences[d]]]==0,n,Nothing],{n,Length[d]-1}]];
%t A362461 A362461[2000] (* Uses lucky numbers up to 2000 *) (* _Paolo Xausa_, May 10 2023 *)
%o A362461 (C) See Links section.
%Y A362461 Cf. A362460, A362462.
%K A362461 nonn
%O A362461 1,1
%A A362461 _N. J. A. Sloane_, May 07 2023