OFFSET
10,11
MATHEMATICA
b[n_, i_, t_] := b[n, i, t] = If[n == 0, Sign[t], If[Min[i, t] < 1, 1, Max[b[n, i - 1, t], GCD[b[n - i, Min[n - i, i], t - 1], i]]]];
a[n_] := If[n < 10, 0, b[n, n, 10]];
CROSSREFS
KEYWORD
nonn
AUTHOR
Wesley Ivan Hurt, Jul 08 2022
STATUS
approved