OFFSET
1,3
LINKS
Muniru A Asiru, Table of n, a(n) for n = 1..10000
FORMULA
Conjecture: a(n)/n -> C = 0.2....
MAPLE
a:= proc(n) option remember: if n<3 then 1 else procname(procname(n-procname(n-1)))+ procname(n-procname(n-2)) fi end: seq(a(n), n=1..80); # Muniru A Asiru, Jun 04 2018
MATHEMATICA
a[1]=a[2]=1; a[n_]:=a[n]=a[a[n-a[n-1]]]+a[n-a[n-2]]; Table[a[n], {n, 80}] (* Harvey P. Dale, Aug 04 2019 *)
PROG
(GAP) a:=[1, 1];; for n in [3..80] do a[n]:=a[a[n-a[n-1]]]+a[n-a[n-2]]; od; a; # Muniru A Asiru, Jun 04 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Apr 10 2003
STATUS
approved