A332492 Self-locating numbers within the decimal expansion of log(2): strings k beginning at position k (first digit after decimal point is position 2).
7, 23, 52, 54, 86, 303, 389, 5112, 60392, 87491, 94788, 97115, 616916, 672938066
Offset: 1
Examples
For 0.693147..., if 6 appears at position 2, then 7 appears at position 7.
Programs
-
Mathematica
dlog2 = RealDigits[Log[2], 10, 1000010][[1]]; Select[Range[2, 1000000], FromDigits[Take[dlog2, {# - 1, # - 2 + IntegerLength[#]}]] == # &] (* Vaclav Kotesovec, Feb 18 2020 *)
Comments