A167393 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

A167393

Characteristic function of the range of A000009.

4

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

(list; graph; refs; listen; history; text; internal format)

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: A097325 A372726 A242647 * A275606 A106549 A075897

Adjacent sequences: A167390 A167391 A167392 * A167394 A167395 A167396

KEYWORD

nonn

AUTHOR

Reinhard Zumkeller, Nov 03 2009

STATUS

approved