A362460 a(n) = A054978(n)/2 if that number is 0 or 1, otherwise -1.

1, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 1, 1, 0, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 0, 0, 1, 1, 1, 1, 0, 0, 1, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 1, 0, 1, 0, 1, 1

Offset

1

Comments

Conjectured to be always 0 or 1.

Links

Paolo Xausa, Table of n, a(n) for n = 1..20000 (terms 1..1000 from N. J. A. Sloane)

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];
A362460[upto_]:=Module[{d=A000959[upto], f}, Table[If[(f=First[d=Abs[Differences[d]]])==0||f==2, f/2, -1], Length[d]-1]];
A362460[1000] (* Uses lucky numbers up to 1000 *) (* Paolo Xausa, May 10 2023 *)

Crossrefs

Cf. A000939, A054978, A362451.

Sequence in context: A190245 A328100 A332479 * A190210 A014394 A014779

Adjacent sequences: A362457 A362458 A362459 * A362461 A362462 A362463

Keyword

nonn

Author

N. J. A. Sloane, May 07 2023

Status

approved