OFFSET
1,2
COMMENTS
Decree that (row 1) = (1) and (row 2) = (3,2). For n >= 4, row n consists of numbers in decreasing order generated as follows: x+1 for each x in row n-1 together with 3/x for each x in row n-1, and duplicates are rejected as they occur. Then a(n) = (number of numbers in row n); it appears that this sequence is not linearly recurrent.
EXAMPLE
First 6 rows of the array of rationals:
1/1
4/1... 2/1
5/1... 3/1
6/1... 4/3... 4/5
7/1... 7/3... 9/5... 2/3
8/1... 10/3... 14/5.. 20/9.. 12/7.. 5/3.. 4/7, so thatA243856begins with 1,2,2,3,4,7.
MATHEMATICA
z = 12; g[1] = {1}; f1[x_]:= x + 1; f2[x_]:= 4/x; h[1] = g[1];
b[n_]:= b[n] = DeleteDuplicates[Union[f1[g[n - 1]], f2[g[n - 1]]]];
h[n_]:= h[n] = Union[h[n - 1], g[n - 1]];
g[n_]:= g[n] = Complement [b[n], Intersection[b[n], h[n]]]
u = Table[Reverse[g[n]], {n, 1, z}]; v = Flatten[u];
Denominator[v] (*A243854*)
Numerator[v] (*A243855*)
Table[Length[g[n]], {n, 1, z}] (*A243856*)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling,Jun 12 2014
STATUS
approved