|
%I #7 Nov 14 2019 14:36:15
%S 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,
%T 7,16,4,13,22,24,12,27,19,2,21,22,30,13,14,22,25,17,15,6,15,28,15,21,
%U 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
%N 6^a(n) is smallest positive power of 6 containing the string 'n'.
%H Chai Wah Wu, <a href="/A063569/b063569.txt">Table of n, a(n) for n = 0..10000</a>
%t a = {}; Do[k = 1; While[ StringPosition[ ToString[6^k], ToString[n] ] == {}, k++ ]; a = Append[a, k], {n, 0, 60} ]; a
%o (Python)
%o def A063569(n):
%o m, k, s = 1, 6, str(n)
%o while s not in str(k):
%o m += 1
%o k *= 6
%o return m # _Chai Wah Wu_, Nov 14 2019
%Y Essentially the same as A062523.
%K base,nonn
%O 0,1
%A _Robert G. Wilson v_, Aug 10 2001
|
