A167393 Characteristic function of the range of A000009.

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

Offset

0,1

Comments

a(A000009(n)) = 1; a(A167377(n)) = 0.

Links

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

Index entries for characteristic functions

Prog

(Haskell)
import Data.List.Ordered (member)
a167393 = fromEnum . flip member a000009_list
-- Reinhard Zumkeller, Nov 03 2015

Crossrefs

Cf. A000009, A167377, A167392.

Sequence in context: A196147 A097325 A242647 * A275606 A106549 A075897

Adjacent sequences: A167390 A167391 A167392 * A167394 A167395 A167396

Keyword

nonn

Author

Reinhard Zumkeller, Nov 03 2009

Status

approved