A076213 2*a(n)-1 = sign(A005132(n+1)-A005132(n)).

1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 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, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0

Offset

0,1

Comments

Characteristic function of A057165 - 1. - M. F. Hasler, Jun 03 2009

Links

Table of n, a(n) for n=0..104.

Index entries for sequences related to Recamán's sequence

Formula

Conjecture: let s(n)=sum(k=1, n, a(k)), then lim n ->infinity s(n)/n = 1/2; for any n, 2*s(n) > n; let v(n)=2*s(n)-n, then v(n)/log(n) is bounded and sum(k=1, n, v(k)) is asymptotic to c*n*log(n) with 1 < c < 3/2.

a(n) = 1-A160351(n+1) = (A160357(n)+1)/2. - M. F. Hasler, Jun 03 2009

Crossrefs

Sequence in context: A267687 A304653 A132350 * A368907 A120525 A285373

Adjacent sequences: A076210 A076211 A076212 * A076214 A076215 A076216

Keyword

nonn

Author

Benoit Cloitre, Nov 03 2002

Extensions

Added initial value a(0)=1. - M. F. Hasler, Jun 03 2009

Status

approved