A217096 Characteristic function of numbers that have a nonleading zero in their decimal representation (A011540). 0 itself is also included, so a(0) = 1.

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

Offset

0

Links

Antti Karttunen, Table of n, a(n) for n = 0..5000

Index entries for characteristic functions

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: A369004 A359605 A368994 * 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