OFFSET
1,2
COMMENTS
LINKS
Nathan Fox, Table of n, a(n) for n = 1..10000
MATHEMATICA
a[n_] := a[n] = If[0 < n < 8, n, a[n-a[n-1]] + a[n-a[n-2]] + a[n-a[n-3]]];
Array[a, 100] (* Paolo Xausa, May 31 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Nathan Fox, May 28 2024
STATUS
approved