OFFSET
0,1
COMMENTS
LINKS
Clark Kimberling, Complementary equations, J. Int. Seq. 19 (2007), 1-13.
MATHEMATICA
a[0] = 1; a[1] = 2; b[0] = 3; b[1] = 4;
a[n_] := a[n] = a[1]*b[n - 1] - a[0]*b[n - 2] + 2 n - 3;
j = 1; While[j < 80000, k = a[j] - j - 1;
While[k < a[j + 1] - j + 1, b[k] = j + k + 2; k++]; j++]; k
u = Table[a[n], {n, 0, k}]; (* A297833 *)
v = Table[b[n], {n, 0, k}]; (* A298108 *)
Take[u, 50]
Take[v, 50]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Feb 09 2018
STATUS
approved