A095049 Number of distinct digits needed to write in decimal representation all positive non-divisors of n that are less than n.

0, 0, 1, 1, 3, 2, 5, 4, 6, 6, 10, 6, 10, 9, 9, 9, 10, 9, 10, 9, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10

Offset: 1

Author

Reinhard Zumkeller, May 28 2004

Keywords

• nonn
• base

Comments

a(n) = 10 for n > 20.

Examples

			Set of non-divisors of n=12: {5,7,8,9,10,11}, therefore
a(12)=#{0,1,5,7,8,9}=6.
		

Crossrefs

Cf. A095048, A043537.

Programs

Mathematica

Table[Length[Union[Flatten[IntegerDigits/@Complement[Range[n],Divisors[ n]]]]],{n,80}] (* Harvey P. Dale, Jan 06 2019 *)