A362462 - OEIS

A362462

Indices of 1's in A362460.

1, 2, 6, 7, 8, 12, 14, 17, 20, 21, 23, 26, 27, 28, 31, 32, 33, 35, 36, 38, 39, 41, 44, 45, 46, 47, 50, 51, 53, 54, 56, 58, 60, 61, 62, 63, 65, 67, 68, 69, 73, 74, 75, 76, 77, 78, 83, 84, 85, 86, 87, 88, 89, 90, 91, 95, 97, 101, 103, 104, 106, 108, 109, 111, 112, 116, 117, 122, 123, 124, 125, 127, 128, 129, 130, 131, 135

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

OFFSET

1,2

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

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

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

PROG

CROSSREFS