OFFSET
1,1
COMMENTS
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..998
MATHEMATICA
Module[{nn=10, lst}, lst=Rest[FromDigits/@Tuples[{0, 8}, nn]]; Table[SelectFirst[lst, Divisible[#, n]&], {n, 50}]] (* Harvey P. Dale, Feb 20 2025 *)
PROG
(Haskell)
a078247 n = head [x | x <- tail a204095_list, mod x n == 0]
-- Reinhard Zumkeller, Jan 10 2012
(Python)
def a(n):
k = 1
while 8*int(bin(k)[2:])%n: k += 1
return 8*int(bin(k)[2:])
print([a(n) for n in range(1, 43)]) # Michael S. Branicky, Aug 08 2021
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Nov 23 2002
EXTENSIONS
More terms from Ray Chandler, Jul 12 2004
STATUS
approved
