|
%I #12 Mar 18 2017 05:09:08
%S 1,1,1,1,1,1,1,1,7,13,103,1441,149863,216102445,32385976817479,
%T 6998688806356507453627,32379910490774089036757549734714267,
%U 17432070546354327896489623045874879995780253657133907303
%N a(n) = (1 + Sum_{j=1..K-2} a(n-j)*a(n-j-1))/a(n-K) with a(1),...,a(K)=1, where K=8.
%H Seiichi Manyama, <a href="/A283920/b283920.txt">Table of n, a(n) for n = 1..24</a>
%t a[n_]:= If[n<9, 1, (1 + Sum[a[n - j] * a[n -j - 1], {j, 6}])/a[ n - 8]]; Table[a[n], {n, 20}] (* _Indranil Ghosh_, Mar 18 2017 *)
%o (PARI) a(n) = if(n<9, 1, (1 + sum(j=1, 6, a(n - j) * a(n - j - 1)))/a(n - 8));
%o for(n=1, 24, print1(a(n),", ")) \\ _Indranil Ghosh_, Mar 18 2017
%Y Cf. A077458 (K=4), A283819 (K=5), A283918 (K=6), A283820 (K=7), this sequence (K=8), A283821 (K=9).
%K nonn
%O 1,9
%A _Seiichi Manyama_, Mar 17 2017
|
