OFFSET
1,3
MATHEMATICA
n = 1; x = 1; lst = {};
For[i = 1, i <= 10000, i++,
z = Split[IntegerDigits[x]]; a = Length /@ z; b = Max[a];
For[j = n, j <= b, j++,
AppendTo[lst, First[First[Part[z, First[Position[a, b]]]]]]; n++
]; x = 11 x ]; lst (* Robert Price, Mar 16 2019 *)
PROG
(Python)
def A215737(n):
a, s = 1, tuple(str(i)*n for i in range(10))
while True:
a *= 11
t = str(a)
for i, x in enumerate(s):
if x in t:
return i # Chai Wah Wu, Mar 30 2021
CROSSREFS
KEYWORD
nonn,more,base
AUTHOR
V. Raman, Aug 22 2012
EXTENSIONS
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