cp's OEIS Frontend

A082757 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.

%I A082757 #5 Oct 12 2013 15:27:26
%S A082757 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 A082757 37,38,43,44,46,52,53,59,62,66,68,134,143,148,152,155,163,164,168,173,
%U A082757 176,178,182,185,188,194,197,198,203,206,212,215,224,225,227
%N A082757 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 A082757 The sequence has 179540 terms, the last being 98765432. - _Giovanni Resta_, Mar 21 2013
%H A082757 Giovanni Resta, <a href="/A082757/b082757.txt">Table of n, a(n) for n = 1..10000</a>
%e A082757 13458 / 6729 = 2
%e A082757 17469 / 5823 = 3
%e A082757 15768 / 3942 = 4
%e A082757 ...
%e A082757 98765432 / 1 = 98765432
%t A082757 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 A082757 base,easy,fini,nonn
%O A082757 1,1
%A A082757 _Leonid Broukhis_, May 21 2003
%E A082757 a(37)-a(60) from _Giovanni Resta_, Mar 21 2013