OFFSET
1,3
EXAMPLE
The decimal representation of 11^39879 contains ten consecutive 6s, and is the least such power with such a string of digits.
MATHEMATICA
mostDigits[t_] := Module[{lastDigit = t[[1]], record = 1, cnt = 1}, Do[If[t[[n]] == lastDigit, cnt++, If[cnt > record, record = cnt]; cnt = 1; lastDigit = t[[n]]], {n, 2, Length[t]}]; If[cnt > record, record = cnt] ; record]; nn = 10; t = Table[-1, {nn}]; n = -1; While[Min[t] == -1, n++; c = mostDigits[IntegerDigits[11^n]]; If[c > nn, c = nn]; While[c > 0 && t[[c]] == -1, t[[c]] = n; c--]]; t (* T. D. Noe, Apr 29 2013 *)
PROG
(Python)
def A215731(n):
l, x = [str(d)*n for d in range(10)], 1
for m in range(10**9):
s = str(x)
for k in l:
if k in s:
return m
x *= 11
return 'search limit reached'
# Chai Wah Wu, Dec 17 2014
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
V. Raman, Aug 22 2012
EXTENSIONS
a(10) discovered by "Wick" (See http://www.mersenneforum.org/showpost.php?p=334789&postcount=89). Definition clarified and all terms to a(10) verified by Daran Gill, Mar 24 2013
a(11) discovered by Tom Womack (See http://www.mersenneforum.org/showpost.php?p=337916&postcount=105), Rick van der Hoorn, Apr 24 2013
a(12)-a(13) from Giovanni Resta, Apr 25 2013
Corrected a(12), Rick van der Hoorn, Apr 28 2013
a(14) from Giovanni Resta, Apr 18 2016
a(15) from Bert Dobbelaere, Feb 15 2019
a(16) from Paul Geneau de Lamarlière, Oct 03 2024
STATUS
approved