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

1, 2, 8, 12, 20, 37, 24, 41, 65, 61, 64, 81, 83, 133, 74, 121, 100, 132, 141, 149, 126, 192, 168, 213, 185, 250, 212, 228, 202, 265, 276, 262, 270, 290, 344, 345, 309, 336, 358, 287, 351, 362, 332, 387, 364, 427, 361, 514, 480, 451, 442

Offset

0,2

Links

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

Mathematica

a = {}; Do[k = 1; While[ Count[ IntegerDigits[8^k], 6] != n, k++ ]; a = Append[a, k], {n, 0, 50} ]; a
With[{p8s=8^Range[700]}, IntegerExponent[#, 8]&/@Table[SelectFirst[ p8s, DigitCount[ #, 10, 6]==n&], {n, 0, 60}]] (* Harvey P. Dale, Jan 19 2015 *)

Crossrefs

Sequence in context: A035405 A280867 A111058 * A162152 A280252 A013654

Adjacent sequences: A063619 A063620 A063621 * A063623 A063624 A063625

Keyword

base,nonn

Author

Robert G. Wilson v, Aug 10 2001

Extensions

Name corrected by Jon E. Schoenfield, Jun 26 2018

Status

approved