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

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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 (list; graph; refs; listen; history; text; internal format)
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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified September 26 22:02 EDT 2022. Contains 357051 sequences. (Running on oeis4.)