login
A063564
Smallest k such that 3^k has exactly n 9's in its decimal representation.
1
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
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
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, Aug 10 2001
EXTENSIONS
Name corrected by Jon E. Schoenfield, Jun 26 2018
STATUS
approved