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

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

(C) See Links section.

Crossrefs

Cf. A362460, A362461.

Sequence in context: A037454 A189242 A285160 * A287321 A030366 A048859

Adjacent sequences: A362459 A362460 A362461 * A362463 A362464 A362465

Keyword

nonn

Author

N. J. A. Sloane, May 07 2023

Status

approved