|
%I #5 Oct 12 2013 15:27:26
%S 2,3,4,5,6,7,8,9,12,13,14,15,16,17,18,19,22,23,24,26,27,28,29,32,35,
%T 37,38,43,44,46,52,53,59,62,66,68,134,143,148,152,155,163,164,168,173,
%U 176,178,182,185,188,194,197,198,203,206,212,215,224,225,227
%N Possible integer ratios of A/B, where A and B have no 0 in their decimal representation, all decimal digits of A and B are different and each digit is used only once.
%C The sequence has 179540 terms, the last being 98765432. - _Giovanni Resta_, Mar 21 2013
%H Giovanni Resta, <a href="/A082757/b082757.txt">Table of n, a(n) for n = 1..10000</a>
%e 13458 / 6729 = 2
%e 17469 / 5823 = 3
%e 15768 / 3942 = 4
%e ...
%e 98765432 / 1 = 98765432
%t f[w_] := Select[Floor[w/10^#]/Mod[w, 10^#] & /@ {1,2,3,4}, IntegerQ]; seq = Union[Flatten[f /@ (FromDigits /@ Permutations[ Range@9])]]; Length[seq] (* _Giovanni Resta_, Mar 21 2013 *)
%K base,easy,fini,nonn
%O 1,1
%A _Leonid Broukhis_, May 21 2003
%E a(37)-a(60) from _Giovanni Resta_, Mar 21 2013
|
