OFFSET
1,3
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
Altug Alkan, Plot for n=0..10^6
MAPLE
a:= proc(n) option remember;
procname(procname(n-1)-1) + procname(n-procname(n-3)-1)
end proc:
a(1):= 1: a(2):= 1: a(3):= 2:
map(a, [$1..100]);
MATHEMATICA
a[1] = a[2] = 1; a[3] = 2; a[n_] := a[n] = a[a[n - 1] - 1] + a[n - a[n - 3] - 1]; Array[a, 81] (* Michael De Vlieger, Mar 28 2017 *)
CROSSREFS
KEYWORD
nonn,look
AUTHOR
Altug Alkan and Robert Israel, Mar 28 2017
STATUS
approved