A062523 6^a(n) is smallest nonnegative power of 6 containing the string 'n'.

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

Links

Table of n, a(n) for n=0..75.

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

Adjacent sequences: A062520 A062521 A062522 * A062524 A062525 A062526

Keyword

base,nonn

Author

Robert G. Wilson v, Jun 24 2001

Status

approved