The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A243730 Irregular triangular array of denominators of the positive rational numbers ordered as in Comments. 3
 1, 1, 1, 1, 1, 2, 1, 2, 3, 1, 2, 3, 4, 1, 2, 3, 4, 5, 1, 2, 3, 4, 5, 6, 3, 1, 2, 3, 4, 5, 6, 3, 7, 5, 5, 1, 2, 3, 4, 5, 6, 3, 7, 5, 5, 8, 7, 8, 7, 1, 2, 3, 4, 5, 6, 3, 7, 5, 5, 8, 7, 8, 7, 9, 9, 11, 11, 9, 1, 2, 3, 4, 5, 6, 3, 7, 5, 5, 8, 7, 8, 7, 9, 9, 11 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,6 COMMENTS Suppose that m >= 3, and define sets h(n) of positive rational numbers as follows: h(n) = {n} for n = 1..m, and thereafter, h(n) = Union({x+1: x in h(n-1), {x/(x+1) : x in h(n-m)}), with the numbers in h(n) arranged in decreasing order. Every positive rational lies in exactly one of the sets h(n). For the present array, put m = 4 and (row n) = h(n); the number of numbers in h(n) is A003269(n-1). (For m = 3, see A243712.) LINKS Clark Kimberling, Table of n, a(n) for n = 1..6000 EXAMPLE First 9 rows of the array: 1/1 2/1 3/1 4/1 5/1 .. 1/2 6/1 .. 3/2 .. 2/3 7/1 .. 5/2 .. 5/3 ... 3/4 8/1 .. 7/2 .. 8/3 ... 7/4 ... 4/5 9/1 .. 9/2 .. 11/3 .. 11/4 .. 9/5 .. 5/6 .. 1/3 The denominators, by rows: 1,1,1,1,1,2,1,2,3,1,2,3,4,1,2,3,4,5,1,2,3,4,5,6,3,... MATHEMATICA z = 27; g[1] = {1}; g[2] = {2}; g[3] = {3}; g[4] = {4}; g[n_] := Reverse[Union[1 + g[n - 1], g[n - 4]/(1 + g[n - 4])]] Table[g[n], {n, 1, 12}] v = Flatten[Table[g[n], {n, 1, z}]]; Denominator[v]; (* A243730 *) Numerator[v]; (* A243731 *) CROSSREFS Cf. A243731, A243712, A243732, A003269. Sequence in context: A002260 A243732 A194905 * A133994 A066041 A194965 Adjacent sequences: A243727 A243728 A243729 * A243731 A243732 A243733 KEYWORD nonn,easy,tabf,frac AUTHOR Clark Kimberling, Jun 09 2014 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified April 25 03:15 EDT 2024. Contains 371964 sequences. (Running on oeis4.)