OFFSET
1
COMMENTS
Also characteristic function of numbers n such that smallest digit among all divisors of n is 1 (A209931), in other words, numbers whose divisor set does not contain any number with a nonleading zero.
LINKS
EXAMPLE
a(214) = 0 because smallest digit of all divisors of 214 (1, 2, 107, 214) is 0.
MATHEMATICA
Table[Min[Flatten[IntegerDigits/@Divisors[n]]], {n, 100}] (* Harvey P. Dale, Jul 20 2015 *)
PROG
(PARI)
A168046(n) = if(!n, 0, !!(vecsort(digits(n), , 8)[1]));
A209929(n) = { my(divs=divisors(n)); factorback(vector(numdiv(n), i, A168046(divs[i]))); }; \\ Antti Karttunen, Dec 07 2017
CROSSREFS
KEYWORD
nonn,base,less
AUTHOR
Jaroslav Krizek, Mar 20 2012
EXTENSIONS
More terms from Antti Karttunen, Dec 07 2017
STATUS
approved