OFFSET
1,1
COMMENTS
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..998
MATHEMATICA
With[{c=Rest[FromDigits/@Tuples[{0, 7}, 11]]}, Table[SelectFirst[c, Divisible[ #, n]&], {n, 40}]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Dec 27 2019 *)
PROG
(Haskell)
a078246 n = head [x | x <- tail a204094_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