OFFSET
1,1
COMMENTS
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
Éric Angelini, Absent digit, SeqFan list, Apr 14 2015.
MATHEMATICA
f[x_]:=Union[Sort[IntegerDigits[x]]];
d={1, 2, 3, 4, 5, 6, 7, 8, 9};
Select[Range[525], And[f[#]!=d, Length[f[#]]<10, IntegerQ[#/Max[Complement[d, f[#]]]]]&] (* Ivan N. Ianakiev, Apr 14 2015 *)
PROG
(Haskell)
import Data.List ((\\)); import Data.Char (digitToInt)
a257001 n = a257001_list !! (n-1)
a257001_list = filter f [1..] where
f x = h > 0 && mod x h == 0 where h = a000030 $ a230959 x
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Eric Angelini and Reinhard Zumkeller, Apr 14 2015
STATUS
approved