OFFSET
1,1
COMMENTS
All pandigital numbers (cf. A171102) belong to this sequence; therefore A050288(1) = 10123457689 is the smallest prime term. - Reinhard Zumkeller, Dec 29 2014
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..1000
EXAMPLE
a(1) is 15628 = 4 * 3907, using all 10 digits.
a(8) is 20748 = 13 * 1596 (note duplicate 1, which is ok in this sequence).
a(3) is 16038 = 27 * 594, and also 16038 = 54 * 297; two different solutions for a(3).
PROG
(PARI) isokpq(n) = {fordiv(n, d, digs = digits(n); if ( d <= sqrtint(n), digs = concat(digs, digits(d)); digs = concat(digs, digits(n/d)); if (#Set(digs) == 10, return(1)); ); ); }
lista(nn) = {for(n=2, nn, if (isokpq(n), print1(n, ", ")); ); } \\ Michel Marcus, Dec 29 2014
(Haskell)
import Data.List (nub, sort)
a253172 n = a253172_list !! (n-1)
a253172_list = filter f [2..] where
f x = g divs $ reverse divs where
g (d:ds) (q:qs) = d <= q &&
(sort (nub $ xs ++ show d ++ show q) == decs || g ds qs)
xs = show x
divs = a027750_row x
decs = "0123456789"
-- Reinhard Zumkeller, Dec 29 2014
CROSSREFS
Cf. A195814, which restricts sequence terms along with their factors to exactly 10 digits, and thus has a finite number of terms.
KEYWORD
nonn,easy,base
AUTHOR
Randy L. Ekl, Dec 28 2014
STATUS
approved