OFFSET
1,2
MATHEMATICA
a[1] = 1; a[2] = 3; a[3] = 4;
a[n_] := a[n] = Floor[(a[n - 1] + a[n - 2] + n)/(a[n - 3] + 1)];
Table[a[n], {n, 1, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Jul 09 2024
STATUS
approved