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,1

Links

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

Mathematica

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

Prog

(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

Crossrefs

Essentially the same as A062523.

Sequence in context: A363848 A011112 A138064 * A037921 A327135 A019878

Adjacent sequences: A063566 A063567 A063568 * A063570 A063571 A063572

Keyword

base,nonn

Author

Robert G. Wilson v, Aug 10 2001

Status

approved