login
First differences of Golomb's sequence.
3

%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