OFFSET
1,6
LINKS
Seiichi Manyama, Table of n, a(n) for n = 1..24
Matthew Christopher Russell, Using experimental mathematics to conjecture and prove theorems in the theory of partitions and commutative and non-commutative recurrences, PhD Dissertation, Mathematics Department, Rutgers University, May 2016; see also.
MATHEMATICA
a[n_]:=If[n<6, 1, (1 + Sum[a[n - j] * a[n - j - 1], {j, 3}])/a[n - 5]]; Table[a[n], {n, 1, 17}] (* Indranil Ghosh, Mar 17 2017 *)
PROG
(PARI) a(n) = if(n<6, 1, (1 + sum(j=1, 3, a(n - j) * a(n - j - 1)))/a(n - 5));
for(n=1, 17, print1(a(n), ", ")) \\ Indranil Ghosh, Mar 17 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Mar 17 2017
EXTENSIONS
More terms from Indranil Ghosh, Mar 17 2017
STATUS
approved