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 A191607 #21 Mar 28 2015 22:38:11
%S A191607 1,0,1,1,0,1,2,1,1,0,1,3,2,1,1,1,0,1,4,3,2,3,1,2,1,1,1,0,1,5,4,3,2,3,
%T A191607 1,2,1,1,1,1,0,1,6,5,4,3,5,2,3,4,1,3,2,1,2,1,1,1,1,0,1,7,6,5,4,3,5,2,
%U A191607 5,3,4,1,3,2,3,1,2,1,1,1,1,1,0,1,8,7,6,5,4,7,3,5,2,5,3,4,5,1,4,3,2,3,1,2,1,2,1,1,1,1,1,0
%N A191607 Table of the difference of numerator and denominator of Farey sequences, read by rows.
%C A191607 For n>=1, the n-th row begins with 1, n-1 and ends with 1, 0.
%C A191607 1, 0
%C A191607 1, 1, 0
%C A191607 1, 2, 1, 1, 0
%C A191607 1, 3, 2, 1, 1, 1, 0
%C A191607 1, 4, 3, 2, 3, 1, 2, 1, 1, 1, 0
%C A191607 etc.
%C A191607 Row n has A005728(n) terms. - _Michel Marcus_, Jun 27 2014
%t A191607 Farey[n_] := Union[ Flatten[ Join[{0}, Table[a/b, {b, n}, {a, b}]]]]; Table[ -Numerator@ Farey@ n + Denominator@ Farey@ n, {n, 9}] // Flatten
%Y A191607 Cf. A133404.
%K A191607 easy,tabf,nonn
%O A191607 1,7
%A A191607 _Robert G. Wilson v_, Jun 11 2011