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

Author

Reinhard Zumkeller, Nov 03 2009

Keywords

• nonn

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

Crossrefs

Cf. A000009, A167377, A167392.

Programs

Haskell

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