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

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

(C) See Links section.

Crossrefs

Cf. A362460, A362462.

Sequence in context: A069807 A132141 A246303 * A285161 A329781 A139531

Adjacent sequences: A362458 A362459 A362460 * A362462 A362463 A362464

Keyword

nonn

Author

N. J. A. Sloane, May 07 2023

Status

approved