OFFSET
1,1
COMMENTS
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..1000
MATHEMATICA
With[{t=Flatten[Table[FromDigits[Join[{9}, #]]&/@Tuples[{0, 9}, n], {n, 0, 6}]]}, Flatten[Table[Select[t, Divisible[#, i]&, 1], {i, 50}]]] (* Harvey P. Dale, May 31 2014 *)
PROG
(Haskell)
a078248 n = head [x | x <- tail a097256_list, mod x n == 0]
-- Reinhard Zumkeller, Jan 10 2012
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Nov 23 2002
EXTENSIONS
More terms from Ray Chandler, Jul 12 2004
STATUS
approved