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,5

Comments

a(n) = 10 for n > 20.

Links

Table of n, a(n) for n=1..74.

Example

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

Mathematica

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

Crossrefs

Cf. A095048, A043537.

Sequence in context: A089279 A049820 A109712 * A118209 A109451 A160017

Adjacent sequences: A095046 A095047 A095048 * A095050 A095051 A095052

Keyword

nonn,base

Author

Reinhard Zumkeller, May 28 2004

Status

approved