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

1, 3, 8, 18, 22, 38, 45, 67, 58, 56, 86, 84, 96, 134, 166, 103, 112, 99, 178, 126, 187, 203, 184, 269, 208, 258, 229, 267, 233, 307, 249, 346, 337, 318, 361, 428, 404, 418, 310, 321, 406, 333, 422, 447, 425, 451, 454, 466, 508, 441, 522

Offset

0,2

Links

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

Mathematica

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

Crossrefs

Sequence in context: A354538 A088589 A319764 * A328054 A171701 A288249

Adjacent sequences: A063594 A063595 A063596 * A063598 A063599 A063600

Keyword

base,nonn

Author

Robert G. Wilson v, Aug 10 2001

Extensions

Name corrected by Jon E. Schoenfield, Jun 26 2018

Status

approved