This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A217096 Characteristic function of numbers that have a nonleading zero in their decimal representation (A011540). 0 itself is also included, so a(0) = 1. 3
 1, 0, 0, 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, 1, 0, 0, 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, 1, 0, 0, 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, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0 LINKS Antti Karttunen, Table of n, a(n) for n = 0..5000 FORMULA a(n) = 1 - A057427(A007954(n)) = 1 - sign(dp_10(n)). where dp_10(n) = digital product of n in base 10. a(n) = 1 - A168046(n). a(n) = sign(A055641(n)). g(x) = 1/(1-x^10) + x(1-x^9)/((1-x)(1-x^10))*sum_{j>=1} (x^((10^j-10)/9) - x^10^j)/(1-x^10^(j+1))) g(x) = 1/(1-x) - g_A168046(x), where g_A168046 (x) is the g.f. of A168046. MATHEMATICA Table[Boole[MemberQ[IntegerDigits[n], 0]], {n, 0, 109}] (* Alonso del Arte, Feb 02 2013 *) PROG (PARI) A217096(n) = if(!n, 1, 0==(vecsort(digits(n), , 8)[1])); \\ Antti Karttunen, Dec 07 2017 CROSSREFS Cf. A011540, A055641, A168046, A209929. Sequence in context: A015703 A015582 A100910 * A014036 A014063 A014954 Adjacent sequences:  A217093 A217094 A217095 * A217097 A217098 A217099 KEYWORD nonn,base AUTHOR Hieronymus Fischer, Jan 23 2013 EXTENSIONS Name edited by Antti Karttunen, Dec 07 2017 STATUS approved

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

Last modified January 23 06:15 EST 2019. Contains 319374 sequences. (Running on oeis4.)