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

1, 6, 14, 15, 47, 31, 28, 44, 70, 49, 74, 93, 124, 128, 126, 130, 116, 156, 125, 175, 228, 207, 214, 201, 174, 264, 230, 241, 238, 266, 211, 370, 368, 279, 288, 305, 358, 366, 401, 385, 416, 387, 461, 466, 475, 429, 456, 428, 471, 470, 494

Offset

0,2

Links

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

Mathematica

a = {}; Do[k = 1; While[ Count[ IntegerDigits[6^k], 4] != n, k++ ]; a = Append[a, k], {n, 0, 50} ]; a
Module[{nn=60, k6=6^Range[500]}, Table[Position[k6, _?(DigitCount[#, 10, 4]== n&), 1, 1], {n, 0, nn}]]//Flatten (* Harvey P. Dale, Jun 26 2022 *)

Crossrefs

Sequence in context: A338907 A218005 A337384 * A116926 A140330 A242832

Adjacent sequences: A063597 A063598 A063599 * A063601 A063602 A063603

Keyword

base,nonn

Author

Robert G. Wilson v, Aug 10 2001

Extensions

Name corrected by Jon E. Schoenfield, Jun 26 2018

Status

approved