cp's OEIS Frontend

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

%I A095049 #5 Jan 06 2019 15:37:23
%S A095049 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,
%T A095049 10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,
%U A095049 10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10
%N A095049 Number of distinct digits needed to write in decimal representation all positive non-divisors of n that are less than n.
%C A095049 a(n) = 10 for n > 20.
%e A095049 Set of non-divisors of n=12: {5,7,8,9,10,11}, therefore
%e A095049 a(12)=#{0,1,5,7,8,9}=6.
%t A095049 Table[Length[Union[Flatten[IntegerDigits/@Complement[Range[n],Divisors[ n]]]]],{n,80}] (* _Harvey P. Dale_, Jan 06 2019 *)
%Y A095049 Cf. A095048, A043537.
%K A095049 nonn,base
%O A095049 1,5
%A A095049 _Reinhard Zumkeller_, May 28 2004