|
|
A110035
|
|
Row sums of an unsigned characteristic triangle for the Fibonacci numbers.
|
|
5
|
|
|
1, 2, 5, 12, 31, 80, 209, 546, 1429, 3740, 9791, 25632, 67105, 175682, 459941, 1204140, 3152479, 8253296, 21607409, 56568930, 148099381, 387729212, 1015088255, 2657535552, 6957518401, 18215019650, 47687540549, 124847601996
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
G.f.: (1-x-x^2)/((1-x^2)(1-3x+x^2));
a(n) = 3*a(n-1) - 3*a(n-3) + a(n-4);
a(n) = F(2n) + 1 + Sum_{k=0..n-1} F(k)*F(k+1).
a(n) = (5 + (-1)^n + 4*A002878(n))/10. (End)
|
|
EXAMPLE
|
G.f. = 1 + 2*x + 5*x^2 + 12*x^3 + 31*x^4 + 80*x^5 + 209*x^6 + ... - Michael Somos, Mar 03 2023
|
|
MATHEMATICA
|
LinearRecurrence[{3, 0, -3, 1}, {1, 2, 5, 12}, 50] (* Harvey P. Dale, May 01 2022 *)
a[ n_] := With[{F = Fibonacci}, (1 + F[n+1]*F[n+2] + F[n+n])/2]; (* Michael Somos, Mar 03 2023 *)
|
|
PROG
|
(PARI) {a(n) = my(F = fibonacci); (1 + F(n+1)*F(n+2) + F(n+n))/2}; /* Michael Somos, Mar 03 2023 */
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|