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

1, 2, 10, 30, 35, 36, 49, 83, 102, 121, 111, 179, 174, 203, 176, 153, 200, 234, 270, 277, 258, 220, 380, 278, 374, 323, 459, 445, 417, 507, 528, 467, 602, 535, 609, 605, 570, 571, 582, 599, 600, 620, 768, 702, 771, 724, 719, 733, 797, 870, 872

Offset

0,2

Links

Harry J. Smith, Table of n, a(n) for n = 0..150

Mathematica

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

Prog

(PARI) a(n)={my(k=1); while(n<>#select(d->d==9, digits(3^k)), k++); k} \\ Harry J. Smith, Aug 26 2009, Andrew Howroyd, Jun 28 2018

Crossrefs

Sequence in context: A215954 A098425 A098408 * A076440 A047198 A290461

Adjacent sequences: A063561 A063562 A063563 * A063565 A063566 A063567

Keyword

base,nonn

Author

Robert G. Wilson v, Aug 10 2001

Extensions

Name corrected by Jon E. Schoenfield, Jun 26 2018

Status

approved