|
%I #9 Jan 29 2019 20:02:04
%S 1023456789,511728399,341152263,255864474,204693579,170576133,
%T 146208114,127932237,113717421,123456789,93125079,85288158,78727446,
%U 73104057,68231193,63966123,60203394,56858711,53866251,61728399,48736038,46562544,44498943,42644079,40938759
%N Smallest number which when multiplied by n gives a pandigital number.
%C a(A171102(n)) = 1.
%H Chai Wah Wu, <a href="/A218770/b218770.txt">Table of n, a(n) for n = 1..10000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/PandigitalNumber.html">Pandigital Number</a>
%t lst1 = Select[FromDigits@# & /@ Permutations[Range[0, 9], {10}], # > 10^9 &]; lst2 = {}; Do[m = Select[lst1, Divisible[#, n] &, 1]; If[FreeQ[m, _Integer], Break[], AppendTo[lst2, m/n]], {n, 25}]; Flatten[lst2]
%Y Cf. A171102.
%K base,nonn
%O 1,1
%A _Arkadiusz Wesolowski_, Nov 05 2012
|
