OFFSET
1,1
EXAMPLE
Moving always to the right in the decimal expansion of e, the string "1" is found at position 2 counting from the first digit after the decimal point, the string "2" is found at position 4, the string "3" at position 17, the string "4" at position 25, etc.
MATHEMATICA
p = ToString[FromDigits[RealDigits[N[E - 2, 2600]][[1]]]]; lst = {0}; Do[
a = StringPosition[p, ToString[n], 1][[1, 1]]; AppendTo[lst, a + lst[[-1]]];
p = StringDrop[p, a], {n, 29}]; Rest[lst]
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Philipp O. Tsvetkov, Jul 29 2018
STATUS
approved