|
%I #5 Jun 02 2023 15:42:38
%S 9,0,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 nonnegative power of 6 containing the string 'n'.
%t Table[k = 0; While[ StringPosition[ ToString[6^k], ToString[n] ] == {}, k++ ]; k, {n, 0, 75} ]
%t Module[{nn=100,p},p=Table[{n,6^n},{n,0,nn}];Table[SelectFirst[p,SequenceCount[ IntegerDigits[ #[[2]]],IntegerDigits[k]]>0&],{k,0,nn}]][[;;,1]] (* _Harvey P. Dale_, Jun 02 2023 *)
%Y Cf. A030000. Essentially the same as A063569.
%K base,nonn
%O 0,1
%A _Robert G. Wilson v_, Jun 24 2001
|
