A264739 Characteristic function of A002202, the range of Euler's totient function A000010.

1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0

Offset

1

Links

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

Formula

a(A002202(n)) = 1 and a(A007617(n)) = 0.

More precisely: a(n) = 1 <=> n in A002202 <=> n is not in A007617. - M. F. Hasler, Aug 13 2021

Prog

(Haskell)
import Data.List.Ordered (has)
a264739 n = if a002202_list `has` n then 1 else 0
(PARI) apply( A264739=istotient, [1..99]) \\ M. F. Hasler, Aug 13 2021

Crossrefs

Cf. A000010, A002202, A007617, A264810 (partial sums), A180639.

Sequence in context: A322860 A353766 A178225 * A257170 A073097 A117569

Adjacent sequences: A264736 A264737 A264738 * A264740 A264741 A264742

Keyword

nonn

Author

Reinhard Zumkeller, Nov 26 2015

Status

approved