login
A202022
Characteristic functions of repdigit numbers in decimal representation.
5
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
Eric Weisstein's World of Mathematics, Repdigit
Wikipedia, Repdigit
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
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Dec 09 2011
STATUS
approved