login
A063619
Smallest k such that 8^k has exactly n 3's in its decimal representation.
0
1, 5, 22, 15, 26, 38, 32, 56, 45, 77, 65, 52, 73, 112, 110, 120, 108, 100, 144, 166, 129, 192, 226, 169, 211, 255, 189, 195, 205, 227, 277, 275, 273, 345, 274, 347, 283, 280, 293, 364, 375, 326, 358, 387, 446, 408, 442, 428, 431, 417, 516
OFFSET
0,2
MATHEMATICA
a = {}; Do[k = 1; While[ Count[ IntegerDigits[8^k], 3] != n, k++ ]; a = Append[a, k], {n, 0, 50} ]; a
With[{c8=8^Range[520]}, Flatten[Table[First[Position[c8, _?(DigitCount[#, 10, 3] == n&)]], {n, 0, 50}]]] (* Harvey P. Dale, Mar 13 2013 *)
CROSSREFS
Sequence in context: A270406 A209049 A217444 * A229801 A045015 A283758
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, Aug 10 2001
EXTENSIONS
Name corrected by Jon E. Schoenfield, Jun 26 2018
STATUS
approved