OFFSET
1,7
LINKS
Seiichi Manyama, Table of n, a(n) for n = 1..23
MATHEMATICA
a[n_]:= If[n<7, 1, (1 + Sum[a[n - j] * a[n -j - 1], {j, 4}])/a[ n - 6]]; Table[a[n], {n, 23}] (* Indranil Ghosh, Mar 18 2017 *)
PROG
(PARI) a(n) = if(n<7, 1, (1 + sum(j=1, 4, a(n - j) * a(n - j - 1)))/a(n - 6));
for(n=1, 24, print1(a(n), ", ")) \\ Indranil Ghosh, Mar 18 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Seiichi Manyama, Mar 17 2017
STATUS
approved