A136399 Numbers having in their decimal representation at least one digit greater than 1.

2, 3, 4, 5, 6, 7, 8, 9, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75

Offset

1,1

Comments

A054055(a(n)) > 1;

Complement of A007088; A064770(a(n)) <> a(n).

Links

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Mathematica

Select[Range[100], Max[IntegerDigits[#]] > 1 &] (* Paolo Xausa, Oct 30 2024 *)

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
(Python)
def ok(n): return any(d > '1' for d in str(n))
print([k for k in range(76) if ok(k)]) # Michael S. Branicky, Oct 29 2024

Crossrefs

Cf. A007088, A054055, A064770.

Sequence in context: A174234 A163807 A118766 * A056167 A050759 A039274

Adjacent sequences: A136396 A136397 A136398 * A136400 A136401 A136402

Keyword

nonn,base

Author

Reinhard Zumkeller, Dec 30 2007

Status

approved