|
|
A099928
|
|
Row sums of Pellonomial triangle A099927.
|
|
2
|
|
|
1, 2, 4, 12, 56, 408, 4608, 80784, 2201536, 93224736, 6134017792, 627029574336, 99602689462784, 24580813373119872, 9426621978735869952, 5616371724370667073792, 5199854362208758062125056, 7479400854548558531507839488, 16717751433807850998823619411968
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
MAPLE
|
p:= proc(n) p(n):= `if`(n<2, n, 2*p(n-1)+p(n-2)) end:
f:= proc(n) f(n):= `if`(n=0, 1, p(n)*f(n-1)) end:
a:= n-> add(f(n)/(f(k)*f(n-k)), k=0..n):
|
|
MATHEMATICA
|
p[n_] := p[n] = If[n < 2, n, 2*p[n - 1] + p[n - 2]];
f[n_] := f[n] = If[n == 0, 1, p[n]*f[n - 1]];
T[n_, k_] := f[n]/(f[k]*f[n - k]);
a[n_] := Sum[T[n, k], {k, 0, n}];
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|