|
%I M0081 #67 Jun 24 2022 17:20:29
%S 1,1,1,2,1,1,3,2,3,1,1,4,3,2,3,4,1,1,5,4,3,5,2,5,3,4,5,1,1,6,5,4,3,5,
%T 2,5,3,4,5,6,1,1,7,6,5,4,7,3,5,7,2,7,5,3,7,4,5,6,7,1,1,8,7,6,5,4,7,3,
%U 8,5,7,2,7,5,8,3,7,4,5,6,7,8,1,1,9,8,7,6,5,9,4,7,3,8,5,7,9,2,9,7,5,8,3,7
%N Triangle read by rows: row n gives denominators of Farey series of order n.
%D J. H. Conway and R. K. Guy, The Book of Numbers, Copernicus Press, NY, 1996, p. 152
%D G. H. Hardy and E. M. Wright, An Introduction to the Theory of Numbers. 3rd ed., Oxford Univ. Press, 1954, p. 23.
%D W. J. LeVeque, Topics in Number Theory. Addison-Wesley, Reading, MA, 2 vols., 1956, Vol. 1, p. 154.
%D A. O. Matveev, Farey Sequences, De Gruyter, 2017.
%D I. Niven and H. S. Zuckerman, An Introduction to the Theory of Numbers. 2nd ed., Wiley, NY, 1966, p. 141.
%D N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%H Alois P. Heinz, <a href="/A006843/b006843.txt">Table of n, a(n) for n = 1..10563</a>
%H R. K. Guy, <a href="/A005165/a005165.pdf">The strong law of small numbers</a>, Amer. Math. Monthly 95 (1988), no. 8, 697-712. [Annotated scanned copy]
%H Andrey O. Matveev, <a href="http://arxiv.org/abs/0801.1981">Neighboring Fractions in Farey Subsequences</a>, arXiv:0801.1981 [math.NT], 2008-2010.
%H Andrey O. Matveev, <a href="https://github.com/andreyomatveev/farey-sequences">Farey Sequences: Errata + Haskell code</a>
%H N. J. A. Sloane, <a href="/stern_brocot.html">Stern-Brocot or Farey Tree</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/FareySequence.html">Farey Sequence.</a>
%H <a href="/index/St#Stern">Index entries for sequences related to Stern's sequences</a>
%e 0/1, 1/1;
%e 0/1, 1/2, 1/1;
%e 0/1, 1/3, 1/2, 2/3, 1/1;
%e 0/1, 1/4, 1/3, 1/2, 2/3, 3/4, 1/1;
%e 0/1, 1/5, 1/4, 1/3, 2/5, 1/2, 3/5, 2/3, 3/4, 4/5, 1/1;
%e ... = A006842/A006843.
%p Farey := proc(n) sort(convert(`union`({0},{seq(seq(m/k,m=1..k),k=1..n)}),list)) end: seq(denom(Farey(i)),i=1..5); # _Peter Luschny_, Apr 28 2009
%t Farey[n_] := Union[ Flatten[ Join[{0}, Table[a/b, {b, n}, {a, b}]]]]; Flatten[ Table[ Denominator[ Farey[n]], {n, 9}]] (* _Robert G. Wilson v_, Apr 08 2004 *)
%t Table[Denominator[FareySequence[n]],{n,10}]//Flatten (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Oct 04 2016 *)
%o (PARI) row(n) = {vf = [0]; for (k=1, n, for (m=1, k, vf = concat(vf, m/k););); vf = vecsort(Set(vf)); for (i=1, #vf, print1(denominator(vf[i]), ", "));} \\ _Michel Marcus_, Jun 27 2014
%Y Row n has A005728(n) terms. - _Michel Marcus_, Jun 27 2014
%Y Row sums give A240877.
%Y Cf. A006842 (numerators), A049455, A049456, A007305, A007306.
%Y See also A177405/A177407.
%K nonn,nice,frac,tabf
%O 1,4
%A _N. J. A. Sloane_
%E More terms from _Robert G. Wilson v_, Apr 08 2004
%E Changed offset (=order of first row) to 1 by _R. J. Mathar_, Apr 26 2009
|
