A202022 Characteristic functions of repdigit numbers in decimal representation.

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

Offset

0

Comments

a(A010785(n)) = 1; a(A139819(n)) = 0;

a(n) = A136522(n) for n <= 100, a(101) = 0, A136522(101) = 1.

Links

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

Eric Weisstein's World of Mathematics, Repdigit

Wikipedia, Repdigit

Index entries for characteristic functions

Formula

a(n) = if A043537(n) = 1 then 1 else 0. - Reinhard Zumkeller, Nov 29 2012

Mathematica

Table[If[Count[DigitCount[n], 0]==9, 1, 0], {n, 0, 120}] (* Harvey P. Dale, Jun 21 2022 *)

Prog

(Haskell)
a202022 = fromEnum . (== 1) . a043537
-- Reinhard Zumkeller, Nov 29 2012, Dec 09 2011

Crossrefs

Sequence in context: A209929 A336556 A105586 * A136522 A352871 A188641

Adjacent sequences: A202019 A202020 A202021 * A202023 A202024 A202025

Keyword

nonn,base

Author

Reinhard Zumkeller, Dec 09 2011

Status

approved