login
A062523
6^a(n) is smallest nonnegative power of 6 containing the string 'n'.
3
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, 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
Table[k = 0; While[ StringPosition[ ToString[6^k], ToString[n] ] == {}, k++ ]; k, {n, 0, 75} ]
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 *)
CROSSREFS
Cf. A030000. Essentially the same as A063569.
Sequence in context: A200306 A153790 A260932 * A367961 A093961 A154903
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, Jun 24 2001
STATUS
approved