OFFSET
0,3
COMMENTS
LINKS
N. J. A. Sloane, Table of n, a(n) for n = 0..10000
Rémy Sigrist, Density plot of the first 2^22 terms
MAPLE
b:= proc() 0 end:
a:= proc(n) option remember; local t;
t:= `if`(n<3, n, b(a(n-1))+b(a(n-2))+b(a(n-3)));
b(t):= b(t)+1; t
end:
[seq(a(n), n=0..200)]; # Following Alois P. Heinz's program for A316774
MATHEMATICA
b[_] = 0;
a[n_] := a[n] = Module[{t}, t = If[n<3, n, b[a[n-1]] + b[a[n-2]] + b[a[n-3]]]; b[t]++; t];
a /@ Range[0, 200] (* Jean-François Alcover, Nov 09 2020, after Maple *)
CROSSREFS
KEYWORD
nonn,look
AUTHOR
N. J. A. Sloane, Dec 14 2019
STATUS
approved