A297827 Difference sequence of A297826.
1, 5, 2, 2, 4, 3, 3, 1, 2, 4, 1, 4, 1, 6, 2, 1, 2, 6, 0, 2, 6, 0, 2, 2, 2, 4, 5, 2, 1, 2, 2, 2, 4, 3, 1, 2, 2, 2, 4, 3, 3, 3, 1, 2, 4, 1, 2, 2, 4, 5, 2, 3, 3, 1, 2, 4, 1, 6, 2, 3, 3, 1, 2, 4, 1, 4, 1, 4, 1, 6, 2, 1, 2, 6, 2, 3, 1, 2, 4, 1, 2, 2, 4, 3, 1, 4
Offset: 1
Links
- Clark Kimberling, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
mex[list_, start_] := (NestWhile[# + 1 &, start, MemberQ[list, #] &]); tbl = {}; 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] + n; b[n_] := b[n] = mex[tbl = Join[{a[n], a[n - 1], b[n - 1]}, tbl], b[n - 1]]; u = Table[a[n], {n, 0, 300}](* A297826 *) v = Table[b[n], {n, 0, 300}](* A297997 *) Differences[u]; (* A297827 *) Differences[v]; (* A297828 *) (* Peter J. C. Moses, Jan 03 2017 *)
Comments