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

1, 2, 12, 22, 30, 24, 40, 61, 56, 84, 87, 93, 115, 114, 118, 170, 139, 129, 180, 165, 206, 197, 209, 172, 263, 258, 227, 293, 303, 327, 283, 331, 299, 329, 315, 342, 353, 346, 426, 439, 424, 448, 464, 412, 472, 435, 437, 512, 463, 498, 502

Offset

0,2

Links

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

Mathematica

a = {}; Do[k = 1; While[ Count[ IntegerDigits[6^k], 3] != n, k++ ]; a = Append[a, k], {n, 0, 50} ]; a
With[{p6=6^Range[600]}, Flatten[IntegerExponent[#, 6]&/@Table[Select[ p6, DigitCount[#, 10, 3]==n&, 1], {n, 0, 50}]]] (* Harvey P. Dale, May 21 2012 *)

Crossrefs

Sequence in context: A225188 A193828 A191226 * A163479 A017293 A367294

Adjacent sequences: A063596 A063597 A063598 * A063600 A063601 A063602

Keyword

base,nonn

Author

Robert G. Wilson v, Aug 10 2001

Extensions

Name corrected by Jon E. Schoenfield, Jun 26 2018

Status

approved