OFFSET
1,1
COMMENTS
LINKS
Reinhard Zumkeller and Chai Wah Wu, Table of n, a(n) for n = 1..10000 First 1000 terms from Reinhard Zumkeller
MATHEMATICA
With[{lst=Rest[FromDigits/@Tuples[{0, 3}, 10]]}, Table[SelectFirst[lst, Mod[#, n]==0&], {n, 50}]] (* Harvey P. Dale, May 31 2025 *)
PROG
(Haskell)
a078242 n = head [x | x <- tail a169966_list, mod x n == 0]
-- Reinhard Zumkeller, Jan 10 2012
(Python)
def A078242(n):
if n > 0:
for i in range(1, 2**n):
x = 3*int(bin(i)[2:])
if not x % n:
return x
return 0 # Chai Wah Wu, Dec 31 2014
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Nov 23 2002
EXTENSIONS
More terms from Ray Chandler, Jul 12 2004
STATUS
approved
