%I #15 Apr 04 2014 01:38:29
%S 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,
%T 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,
%U 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
%N 2*a(n)-1 = sign(A005132(n+1)-A005132(n)).
%C Characteristic function of A057165 - 1. - _M. F. Hasler_, Jun 03 2009
%H <a href="/index/Rea#Recaman">Index entries for sequences related to Recamán's sequence</a>
%F 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.
%F a(n) = 1-A160351(n+1) = (A160357(n)+1)/2. - _M. F. Hasler_, Jun 03 2009
%K nonn
%O 0,1
%A _Benoit Cloitre_, Nov 03 2002
%E Added initial value a(0)=1. - _M. F. Hasler_, Jun 03 2009
|