login
A063569
6^a(n) is smallest positive power of 6 containing the string 'n'.
2
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
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: A011112 A374752 A138064 * A037921 A327135 A019878
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, Aug 10 2001
STATUS
approved