OFFSET
1,2
COMMENTS
Complement of A032924.
A212193(a(n)) <> 0. [Reinhard Zumkeller, May 04 2012]
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[0, 100], DigitCount[#, 3, 0]>0&] (* Harvey P. Dale, Aug 10 2021 *)
PROG
(Haskell)
import Data.List (findIndices)
a081605 n = a081605_list !! (n-1)
a081605_list = findIndices (/= 0) a212193_list
-- Reinhard Zumkeller, May 04 2012
(Python)
from itertools import count, islice
def A081605_gen(): # generator of terms
a = -1
for n in count(2):
b = int(bin(n)[3:], 3) + (3**(n.bit_length()-1)-1>>1)
yield from range(a+1, b)
a = b
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Mar 23 2003
STATUS
approved