A296066 a(n) = A296065(n)/n.

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

Offset

1

Comments

Similar to other sequences such as A059841 but would have to change offset or lag terms to match them.

Links

Table of n, a(n) for n=1..102.

Formula

a(n) =1 if n>=3 odd; a(n) =0 if n>=4 even. - R. J. Mathar, May 14 2024

Mathematica

MapIndexed[#1/First@ #2 &, Accumulate@ #] &@ Nest[Append[#, Block[{k = 1, s = 1}, While[Nand[FreeQ[#, s k], IntegerQ@ Mean[Append[#, s k]]], If[s == 1, s = -1, k++; s = 1]]; s k]] &, {0}, 105] (* Michael De Vlieger, Dec 12 2017 *)

Crossrefs

Cf. A296065, A059841.

Sequence in context: A284912 A192082 A353498 * A073070 A370702 A189687

Adjacent sequences: A296063 A296064 A296065 * A296067 A296068 A296069

Keyword

nonn,less

Author

Enrique Navarrete, Dec 04 2017

Status

approved