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
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, Aug 10 2001
STATUS
approved