OFFSET
1,1
COMMENTS
a(A171102(n)) = 1.
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..10000
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
KEYWORD
base,nonn
AUTHOR
Arkadiusz Wesolowski, Nov 05 2012
STATUS
approved