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

1, 5, 16, 20, 28, 25, 34, 44, 56, 53, 81, 70, 92, 111, 160, 124, 142, 135, 189, 183, 168, 224, 228, 211, 225, 266, 240, 215, 253, 246, 236, 311, 338, 247, 302, 307, 242, 386, 365, 371, 441, 426, 325, 370, 433, 458, 478, 430, 425, 408, 483

Offset

0,2

Links

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

Mathematica

a = {}; Do[k = 1; While[ Count[ IntegerDigits[7^k], 6] != n, k++ ]; a = Append[a, k], {n, 0, 50} ]; a

Crossrefs

Sequence in context: A238586 A195958 A151980 * A269969 A057281 A204920

Adjacent sequences: A063609 A063610 A063611 * A063613 A063614 A063615

Keyword

base,nonn

Author

Robert G. Wilson v, Aug 10 2001

Extensions

Name corrected by Jon E. Schoenfield, Jun 26 2018

Status

approved