A063602 Smallest k such that 6^k has exactly n 6's in its decimal representation.

1, 9, 6, 10, 45, 38, 33, 50, 58, 78, 76, 75, 64, 82, 123, 148, 160, 154, 156, 157, 166, 204, 186, 215, 234, 250, 257, 275, 202, 295, 302, 232, 330, 313, 351, 334, 395, 364, 412, 391, 417, 422, 427, 458, 481, 388, 457, 462, 558, 519

Offset

1,2

Links

Robert Israel, Table of n, a(n) for n = 1..1250

Maple

N:= 100: # for a(1) .. a(N)
V:= Vector(N): count:= 0:
for i from 1 to 10^7 while count < N do
   v:= numboccur(6, convert(6^i, base, 10));
   if v <= N and V[v] = 0 then V[v]:= i; count:= count+1;  fi;
od:
convert(V, list);

Mathematica

a = {}; Do[k = 1; While[ Count[ IntegerDigits[6^k], 6] != n, k++ ]; a = Append[a, k], {n, 1, 50} ]; a
With[{tbl=Table[{k, DigitCount[6^k, 10, 6]}, {k, 0, 600}]}, Table[SelectFirst[tbl, #[[2]]==n&], {n, 50}]][[;; , 1]] (* Harvey P. Dale, Jan 20 2026 *)

Crossrefs

Cf. A000400.

Sequence in context: A146486 A137907 A070164 * A180572 A182873 A180856

Adjacent sequences: A063599 A063600 A063601 * A063603 A063604 A063605

Keyword

base,nonn

Author

Robert G. Wilson v, Aug 10 2001

Extensions

Name corrected by Jon E. Schoenfield, Jun 26 2018

Status

approved