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

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..94.

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

Author

Enrique Navarrete, Dec 04 2017

Status

approved