|
|
A283820
|
|
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=7.
|
|
3
|
|
|
1, 1, 1, 1, 1, 1, 1, 6, 11, 76, 911, 70146, 63973151, 4487524623191, 47846849137190094661, 19519446695048425827542253313671, 12288737121834287082853490635842863813970134234101
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,8
|
|
LINKS
|
|
|
MATHEMATICA
|
a[n_]:=If[n<8, 1, (1 + Sum[a[n - j] * a[n - j - 1], {j, 5}])/a[n - 7]]; Table[a[n], {n, 1, 17}] (* Indranil Ghosh, Mar 17 2017 *)
|
|
PROG
|
(PARI) a(n) = if(n<8, 1, (1 + sum(j=1, 5, a(n - j) * a(n - j - 1)))/a(n - 7));
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|