A088517 First differences of Golomb's sequence.

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

Offset: 1

Author

Benoit Cloitre, Nov 14 2003

Keywords

• nonn

Comments

Characteristic function of A001463

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
• Index entries for characteristic functions

Programs

Haskell

a088517 n = a001462 (n + 1) - a001462 n
a088517_list = zipWith (-) (tail a001462_list) a001462_list
-- Reinhard Zumkeller, Apr 28 2012

Formula

a(n)=A001462(n+1)-A001462(n); a(A001463(n))=1