A063569 6^a(n) is smallest positive power of 6 containing the string 'n'.

9, 3, 3, 2, 6, 6, 1, 5, 12, 4, 9, 16, 4, 13, 28, 18, 3, 10, 15, 21, 26, 3, 22, 12, 27, 26, 17, 7, 16, 4, 13, 22, 24, 12, 27, 19, 2, 21, 22, 30, 13, 14, 22, 25, 17, 15, 6, 15, 28, 15, 21, 31, 46, 23, 28, 18, 6, 15, 20, 17, 10, 8, 11, 33, 14, 6, 6, 8, 18, 9, 11, 22, 26, 17, 16, 33

Offset: 0

Author

Robert G. Wilson v, Aug 10 2001

Keywords

• base
• nonn

Links

• Chai Wah Wu, Table of n, a(n) for n = 0..10000

Crossrefs

Essentially the same as A062523.

Programs

Mathematica

a = {}; Do[k = 1; While[ StringPosition[ ToString[6^k], ToString[n] ] == {}, k++ ]; a = Append[a, k], {n, 0, 60} ]; a

Python

def A063569(n):
    m, k, s = 1, 6, str(n)
    while s not in str(k):
        m += 1
        k *= 6
    return m # Chai Wah Wu, Nov 14 2019