login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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
S. Falcon, On The Generating Functions of the Powers of the K-Fibonacci Numbers, Scholars Journal of Engineering and Technology (SJET), 2014; 2 (4C):669-675.
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):
seq(a(n), n=0..20); # Alois P. Heinz, Aug 15 2013
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}];
Table[a[n], {n, 0, 20}] (* Jean-François Alcover, Nov 16 2022, after Alois P. Heinz *)
CROSSREFS
Sequence in context: A227037 A158569 A020106 * A363005 A000568 A177921
KEYWORD
nonn
AUTHOR
Ralf Stephan, Nov 03 2004
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 08:22 EDT 2024. Contains 371236 sequences. (Running on oeis4.)