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
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, Jun 24 2001
STATUS
approved