%I #14 Jul 13 2013 12:03:02
%S 1,0,1,0,1,0,0,1,0,0,1,0,0,0,1,0,0,0,1,0,0,0,1,0,0,0,0,1,0,0,0,0,1,0,
%T 0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,0,
%U 1,0,0,0,0,0,0,1,0,0,0,0,0,0,1,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0
%N First differences of Golomb's sequence.
%C Characteristic function of A001463
%H Reinhard Zumkeller, <a href="/A088517/b088517.txt">Table of n, a(n) for n = 1..10000</a>
%H <a href="/index/Ch#char_fns">Index entries for characteristic functions</a>
%F a(n)=A001462(n+1)-A001462(n); a(A001463(n))=1
%o (Haskell)
%o a088517 n = a001462 (n + 1) - a001462 n
%o a088517_list = zipWith (-) (tail a001462_list) a001462_list
%o -- _Reinhard Zumkeller_, Apr 28 2012
%K nonn
%O 1,1
%A _Benoit Cloitre_, Nov 14 2003