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

1, 3, 12, 22, 25, 47, 44, 69, 48, 71, 66, 98, 125, 160, 129, 145, 101, 128, 154, 151, 212, 228, 217, 210, 223, 176, 226, 198, 313, 218, 316, 314, 378, 364, 326, 350, 353, 394, 344, 387, 399, 421, 376, 390, 494, 431, 449, 509, 510, 561, 501

Offset

0,2

Links

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

Mathematica

a = {}; Do[k = 1; While[ Count[ IntegerDigits[6^k], 2] != n, k++ ]; a = Append[a, k], {n, 0, 50} ]; a
With[{c=6^Range[600]}, Flatten[Table[Position[c, _?(DigitCount[#, 10, 2]==n&), {1}, 1], {n, 0, 50}]]] (* Harvey P. Dale, Dec 29 2014 *)

Crossrefs

Sequence in context: A088099 A110419 A031223 * A063107 A015629 A341374

Adjacent sequences: A063595 A063596 A063597 * A063599 A063600 A063601

Keyword

base,nonn

Author

Robert G. Wilson v, Aug 10 2001

Extensions

Name corrected by Jon E. Schoenfield, Jun 26 2018

Status

approved