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

Table of n, a(n) for n=1..50.

Mathematica

a = {}; Do[k = 1; While[ Count[ IntegerDigits[6^k], 6] != n, k++ ]; a = Append[a, k], {n, 1, 50} ]; a

Crossrefs

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