|
%I #11 Sep 21 2016 17:43:24
%S 1,1,1,1,1,1,1,1,1,2,2,4,4,4,4,4,4,4,4,2,4,2,4,4,4,4,4,4,4,2,4,4,2,4,
%T 4,4,4,4,4,2,4,4,4,2,4,4,4,4,4,2,4,4,4,4,2,4,4,4,4,2,4,4,4,4,4,2,4,4,
%U 4,2,4,4,4,4,4,4,2,4,4,2,4,4,4,4,4,4,4,2,4,2,4,4,4,4,4,4,4,4,2,3,5,10,10
%N Number of distinct positive integers that can be formed with the decimal digits of n.
%e a(1) = 1 because there is only one number that can be formed with the digits in 1.
%e a(10) = 2 because the digits in 10 can be used to make 0, 1, 01, and 10, but only 1 and 10 are both nonzero and unique (obviously, 01=1).
%t Table[Length[Union[FromDigits/@Flatten[Permutations/@Flatten[ Table[ Partition[ IntegerDigits[t],n,1],{n,IntegerLength[t]}],1],1]/.(0-> Nothing)]], {t,110}] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Sep 21 2016 *)
%K nonn,base
%O 1,10
%A _Dominick Cancilla_, Aug 02 2010
|
