OFFSET
1
COMMENTS
Similar to other sequences such as A059841 but would have to change offset or lag terms to match them.
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
KEYWORD
nonn,less
AUTHOR
Enrique Navarrete, Dec 04 2017
STATUS
approved