|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|