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

1, 2, 9, 13, 22, 16, 31, 72, 51, 59, 49, 83, 108, 104, 130, 115, 123, 144, 140, 159, 191, 152, 145, 186, 194, 217, 236, 237, 223, 189, 312, 269, 252, 205, 282, 283, 286, 328, 284, 290, 305, 324, 386, 352, 360, 423, 382, 525, 416, 403, 430

Offset

0,2

Links

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

Mathematica

a = {}; Do[k = 1; While[ Count[ IntegerDigits[9^k], 8] != n, k++ ]; a = Append[a, k], {n, 0, 50} ]; a
Join[{1}, Flatten[With[{p9=DigitCount[#, 10, 8]&/@(9^Range[0, 600])}, Table[ Position[ p9, n, {1}, 1], {n, 50}]]]-1] (* Harvey P. Dale, Apr 23 2014 *)

Crossrefs

Sequence in context: A138946 A037385 A115907 * A178688 A163735 A144472

Adjacent sequences: A063631 A063632 A063633 * A063635 A063636 A063637

Keyword

base,nonn

Author

Robert G. Wilson v, Aug 10 2001

Extensions

Name corrected by Jon E. Schoenfield, Jun 26 2018

Status

approved