A216203 Smallest prime that does not divide at least one n-digit zeroless pandigital number.
44449, 900001, 7000003, 20000003, 30000001, 100000007, 500000003, 1000000007, 6000000001
Offset: 9
Links
- Carlos Rivera, Puzzle 259
- Eric Weisstein's World of Mathematics, Pandigital Number
Programs
-
Mathematica
lst = Times @@ Union[FromDigits@# & /@ Permutations@Range[9]]; n = 1; While[True, p = Prime[n]; If[! Divisible[lst, p], Print[p]; Break[]]; n++]
Extensions
a(11)-a(16) from Giovanni Resta, Mar 12 2013
a(17) from Giovanni Resta, Mar 13 2013
Comments