login
Indices of 0's in A362460.
4

%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