OFFSET
0,2
COMMENTS
LINKS
Clark Kimberling, Table of n, a(n) for n = 0..1000
MAPLE
A298343 := proc(n)
option remember ;
if n <=2 then
n+1 ;
else
procname(n-1)+procname(n-2)+procname(floor(2*n/3)) ;
end if;
end proc:
seq(A298343(n), n=0..80) ; # R. J. Mathar, Apr 26 2022
MATHEMATICA
a[0] = 1; a[1] = 2; a[2] = 3;
a[n_] := a[n] = a[n - 1] + a[n - 2] + a[Floor[2n/3]];
Table[a[n], {n, 0, 30}] (* A298343 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Feb 09 2018
STATUS
approved