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

2, 1, 13, 21, 29, 65, 66, 56, 69, 114, 101, 112, 137, 165, 172, 219, 233, 185, 252, 299, 268, 261, 322, 394, 310, 345, 435, 329, 405, 500, 498, 427, 395, 517, 586, 555, 548, 590, 596, 574, 578, 531, 717, 661, 689, 732, 669, 789, 718, 875, 834

Offset

0,1

Links

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

Mathematica

a = {}; Do[k = 1; While[ Count[ IntegerDigits[3^k], 3] != n, k++ ]; a = Append[a, k], {n, 0, 50} ]; a
Flatten[With[{t=3^Range[900]}, Table[Position[t, _?(DigitCount[#, 10, 3]==n&), 1, 1], {n, 0, 50}]]] (* Harvey P. Dale, Feb 22 2013 *)

Crossrefs

Sequence in context: A358205 A118679 A087451 * A174170 A264373 A217490

Adjacent sequences: A063555 A063556 A063557 * A063559 A063560 A063561

Keyword

base,nonn

Author

Robert G. Wilson v, Aug 10 2001

Extensions

Name corrected by Jon E. Schoenfield, Jun 26 2018

Status

approved