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 A119015 #8 May 07 2016 12:30:32 %S A119015 0,1,1,1,1,2,3,4,7,11,18,25,32,39,71,110,181,252,323,394,465,536,1001, %T A119015 1537,2538,3539,4540,5541,6542,7543,8544,9545,18089,27634,45723,63812, %U A119015 81901,99990,118079,136168,154257,172346,190435,208524,398959,607483 %N A119015 Denominators of "Farey fraction" approximations to e. %C A119015 "Add" (meaning here to add the numerators and add the denominators, not to add the fractions) 1/0 to 1/1 to make the fraction bigger: 2/1, 3/1. Now 3/1 is too big, so add 2/1 to make the fraction smaller: 5/2, 8/3, 11/4. Now 11/4 is too small, so add 8/3 to make the fraction bigger: 19/7, ... %H A119015 Dave Rusin, <a href="http://www.math.niu.edu/~rusin/known-math/99/farey">Farey fractions on sci.math</a> [Broken link] %H A119015 Dave Rusin, <a href="/A002965/a002965.txt">Farey fractions on sci.math</a> [Cached copy] %e A119015 The fractions are 1/0, 0/1, 1/1, 2/1, 3/1, 5/2, 8/3, 11/4, 19/7, ... %t A119015 f[x_, n_] := (m = Floor[x]; f0 = {m, m+1/2, m+1}; r = ({a___, b_, c_, d___} /; b < x < c) :> {b, (Numerator[b] + Numerator[c]) / (Denominator[b] + Denominator[c]), c}; %t A119015 Join[{m, m+1}, NestList[# /. r &, f0, n-3][[All, 2]]]); %t A119015 Join[{0, 1, 1}, f[E, 43] // Denominator] %t A119015 (* _Jean-François Alcover_, May 18 2011 *) %Y A119015 For another version see A006259. %Y A119015 Cf. A097545, A097546 gives the similar sequence for pi. A119014 gives the numerators for this sequence. %K A119015 easy,frac,nonn %O A119015 0,6 %A A119015 _Joshua Zucker_, May 08 2006