OFFSET
1,1
COMMENTS
LINKS
Michael S. Branicky, Table of n, a(n) for n = 1..10000 (terms 1..1000 from Reinhard Zumkeller)
MATHEMATICA
With[{c=Rest[FromDigits/@Tuples[{0, 6}, 10]]}, Table[SelectFirst[c, Divisible[ #, n]&], {n, 50}]] (* The program uses the SelectFirst function from Mathematica version 10 *) (* Harvey P. Dale, Apr 15 2015 *)
PROG
(Haskell)
a078245 n = head [x | x <- tail a204093_list, mod x n == 0]
-- Reinhard Zumkeller, Jan 10 2012
(Python)
def A204093(n): return int(bin(n)[2:].replace('1', '6'))
def a(n):
k = 1
while A204093(k)%n: k += 1
return A204093(k)
print([a(n) for n in range(1, 47)]) # Michael S. Branicky, Jun 06 2021
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Nov 23 2002
EXTENSIONS
More terms from Ray Chandler, Jul 12 2004
STATUS
approved