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

Comments

Characteristic function of A001463

Links

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Index entries for characteristic functions

Formula

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

Prog

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

Crossrefs

Sequence in context: A108357 A309848 A326822 * A325897 A040053 A267513

Adjacent sequences: A088514 A088515 A088516 * A088518 A088519 A088520

Keyword

nonn

Author

Benoit Cloitre, Nov 14 2003

Status

approved