OFFSET
1,1
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
PROG
(Haskell)
a136399 n = a136399_list !! (n-1)
a136399_list = filter (any (> '1') . show) [0..]
-- Reinhard Zumkeller, Apr 25 2012
(Python)
def A136399(n):
def f(x):
s = str(x)
for i in range(l:=len(s)):
if s[i]>'1':
break
else:
return n+int(s, 2)
return n+int(s[:i]+'1'*(l-i), 2)
m, k = n, f(n)
while m != k: m, k = k, f(k)
return m # Chai Wah Wu, Oct 16 2024
CROSSREFS
KEYWORD
nonn,base,changed
AUTHOR
Reinhard Zumkeller, Dec 30 2007
STATUS
approved