A114607 Start with 1 0 1 0 then add a one every time (e.g. 1 1 0 1 1 1 0 1 1 1 1 0 ...).

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

Offset: 1

Author

Dan M. Smith (SmittyDa33(AT)yahoo.com), Dec 14 2005

Keywords

• nonn

Crossrefs

Cf. A073424.

Essentially the same sequence as A023532 and A123110. - N. J. A. Sloane, Feb 07 2020

Programs

Mathematica

Flatten[Join[{1,0},Table[Join[PadRight[{},n,1],{0}],{n,20}]]] (* Harvey P. Dale, Dec 23 2012 *)

Formula

a(n)=A023532(n-2), n>1. [From R. J. Mathar, Aug 11 2008]