OFFSET
1,5
LINKS
Altug Alkan, Table of n, a(n) for n = 1..10000
Altug Alkan, Alternative scatterplot
MAPLE
a:= proc(n) option remember: if n<5 then 1 else procname(procname(n-4))+procname(n-procname(n-3)) fi end: seq(a(n), n=1..80); # Muniru A Asiru, Jun 06 2018
PROG
(PARI) q=vector(100000); q[1]=q[2]=q[3]=q[4]=1; for(n=5, #q, q[n]=q[q[n-4]]+q[n-q[n-3]]); vector(100000, n, q[n])
(GAP) a:=[1, 1, 1, 1];; for n in [5..80] do a[n]:=a[a[n-4]]+a[n-a[n-3]]; od; a; # Muniru A Asiru, Jun 06 2018
CROSSREFS
KEYWORD
nonn,look
AUTHOR
Altug Alkan, May 28 2017
STATUS
approved