A362461 - OEIS

A362461

Indices of 0's in A362460.

3, 4, 5, 9, 10, 11, 13, 15, 16, 18, 19, 22, 24, 25, 29, 30, 34, 37, 40, 42, 43, 48, 49, 52, 55, 57, 59, 64, 66, 70, 71, 72, 79, 80, 81, 82, 92, 93, 94, 96, 98, 99, 100, 102, 105, 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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

Rémy Sigrist, Table of n, a(n) for n = 1..10000

Rémy Sigrist, C program

MATHEMATICA

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];

A362461[upto_]:=Module[{d=A000959[upto]}, Table[If[First[d=Abs[Differences[d]]]==0, n, Nothing], {n, Length[d]-1}]];

A362461[2000] (* Uses lucky numbers up to 2000 *) (* Paolo Xausa, May 10 2023 *)

PROG

CROSSREFS