OFFSET
1,1
COMMENTS
A038603 is a subsequence.
LINKS
R. Zumkeller, Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Proper Divisor
EXAMPLE
Proper divisors of a(20)=54: {1, 2, 3, 6, 9, 18, 27}
with set of digits {1,2,3,6,7,8,9} containing neither 4 nor 5.
PROG
(Haskell)
import Data.List (intersect)
a132080 n = a132080_list !! (n-1)
a132080_list = [x | x <- [2..], all null $
map (show x `intersect`) $ map show $ a027751_row x]
-- Reinhard Zumkeller, Oct 06 2012
(PARI) is(n)=my(D=Set(digits(n))); fordiv(n, d, if(#setintersect(D, Set(digits(d))), return(d==n&&n>1))) \\ Charles R Greathouse IV, Dec 01 2013
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Aug 09 2007
STATUS
approved