%I #15 May 10 2023 22:39:29
%S 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 55,57,59,64,66,70,71,72,79,80,81,82,92,93,94,96,98,99,100,102,105,
%U 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 Indices of 0's in A362460.
%H Rémy Sigrist, <a href="/A362461/b362461.txt">Table of n, a(n) for n = 1..10000</a>
%H Rémy Sigrist, <a href="/A362461/a362461.txt">C program</a>
%t 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[upto_]:=Module[{d=A000959[upto]},Table[If[First[d=Abs[Differences[d]]]==0,n,Nothing],{n,Length[d]-1}]];
%t A362461[2000] (* Uses lucky numbers up to 2000 *) (* _Paolo Xausa_, May 10 2023 *)
%o (C) See Links section.
%Y Cf. A362460, A362462.
%K nonn
%O 1,1
%A _N. J. A. Sloane_, May 07 2023