login
A218770
Smallest number which when multiplied by n gives a pandigital number.
1
1023456789, 511728399, 341152263, 255864474, 204693579, 170576133, 146208114, 127932237, 113717421, 123456789, 93125079, 85288158, 78727446, 73104057, 68231193, 63966123, 60203394, 56858711, 53866251, 61728399, 48736038, 46562544, 44498943, 42644079, 40938759
OFFSET
1,1
COMMENTS
a(A171102(n)) = 1.
LINKS
Eric Weisstein's World of Mathematics, Pandigital Number
MATHEMATICA
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]
CROSSREFS
Cf. A171102.
Sequence in context: A020666 A074205 A277054 * A292569 A204045 A061604
KEYWORD
base,nonn
AUTHOR
STATUS
approved