|
%I #4 Dec 23 2015 15:05:12
%S 1,2,3,4,5,6,7,8,9,10,1,12,13,14,15,16,17,18,19,20,12,2,23,24,25,26,
%T 27,28,29,30,13,23,3,34,35,36,37,38,39,40,14,24,34,4,45,46,47,48,49,
%U 50,15,25,35,45,5,56,57,58,59,60,16,26,36,46,56,6
%N Unique digits used in n in numerical order (with 0 last)
%F a(n) = 1234567890 after any digits not appearing in n are removed
%e a(93077) = 3790. Seven is only used once and the digits are sorted with zero last
%t udno[n_]:=Module[{c=Union[IntegerDigits[n]]},FromDigits[If[First[c] == 0, RotateLeft[ c],c]]]; Array[udno,70] (* _Harvey P. Dale_, Dec 23 2015 *)
%K easy,nonn,base
%O 1,2
%A _Dominick Cancilla_, Sep 02 2010
|
