This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A269981 #5 Mar 10 2016 12:16:24 %S A269981 1,6,9,4,4,6,6,4,9,0,6,6,4,3,3,8,5,1,0,7,6,1,9,5,9,6,5,9,7,9,6,9,0,2, %T A269981 4,1,7,5,8,6,9,5,6,0,5,1,9,2,6,9,9,2,4,2,8,4,1,9,7,8,2,4,9,4,2,4,3,0, %U A269981 9,5,1,0,1,3,4,7,0,6,1,8,1,0,9,9,6,3 %N A269981 Decimal expansion of the number having (2,4,6,8,10,...) = A005843 as its factorial-nested interval sequence. %C A269981 Suppose that r = (r(n)) is a sequence satisfying (i) 1 = r(1) > r(2) > r(3) > ... and (ii) r(n) -> 0. For x in (0,1], let n(1) be the index n such that r(n+1) , x <= r(n), and let L(1) = r(n(1))-r(n(1)+1). Let n(2) be the index n such that r(n(1)+1) < x <= r(n(1)+1) + L(1)r(n), and let L(2) = (r(n(2))-r(r(n)+1)L(1). Continue inductively to obtain the sequence (n(1), n(2), n(3), ... ), the r-nested interval sequence of x. Taking r = (1/n!) gives the factorial-nested interval sequence of x. %C A269981 Conversely, given a sequence s= (n(1),n(2),n(3),...) of positive integers, the number x having satisfying NI(x) = s is the sum of left-endpoints of nested intervals (r(n(k)+1), r(n(k))]; i.e., x = sum{L(k)r(n(k+1)+1), k >=1}, where L(0) = 1. %C A269981 See A269970 for a guide to related sequences. %e A269981 x = 0.16944664906643385107619596597969024... %t A269981 r[n_] := 1/n!; n[k_] := k; Table[n[k], {k, 1, 1000}]; %t A269981 len[1] = r[n[1]] - r[n[1] + 1]; %t A269981 len[k_] := len[k - 1]*(r[n[k]] - r[n[k] + 1]) %t A269981 sum = r[n[1] + 1] + Sum[len[i]*r[n[i + 1] + 1], {i, 1, 300}]; %t A269981 g = N[sum, 150] %t A269981 RealDigits[g, 10, 100][[1]] %Y A269981 Cf. A000142, A005843, A269970. %K A269981 nonn,cons,easy %O A269981 0,2 %A A269981 _Clark Kimberling_, Mar 08 2016