|
%I #10 Aug 16 2018 06:38:18
%S 2,4,17,25,29,31,36,86,107,195,200,370,687,853,880,899,961,963,1013,
%T 1153,1161,1235,1263,1291,1325,1347,1357,1399,1444,1451,1798,1846,
%U 2067,2191,2258,2305,2332,2356,2370,2487,2516,2571,2578,2690,2694,2807,2926,2956,3012
%N a(n) is the position of the first occurrence of n > a(n-1) after the decimal point in e = 2.71828182845904523...
%e 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.
%t p = ToString[FromDigits[RealDigits[N[E - 2, 2600]][[1]]]]; lst = {0}; Do[
%t a = StringPosition[p, ToString[n], 1][[1, 1]]; AppendTo[lst, a + lst[[-1]]];
%t p = StringDrop[p, a], {n, 29}]; Rest[lst]
%Y Cf. A001113, A078197, A103186, A281092.
%K nonn,base,easy
%O 1,1
%A _Philipp O. Tsvetkov_, Jul 29 2018
|
