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

Author

Robert G. Wilson v, Jun 24 2001

Keywords

• base
• nonn

Crossrefs

Cf. A030000. Essentially the same as A063569.

Programs

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 *)