proposed
approved
proposed
approved
editing
proposed
G.f.= : x(1-x)(1-2x)/(1-3x+x^2)^2. - Emeric Deutsch, Oct 07 2002
a(n) = A147703(n,1). - Philippe Deléham, Nov 29 2008
proposed
editing
editing
proposed
a(n) = (3*n*F(2n-1) + (3-n)*F(2n))/5 where F() = Fibonacci numbers A000045.
Harry J. Smith, <a href="/A059502/b059502.txt">Table of n, a(n) for n = 0,...,200</a>
a(n)=A147703(n,1). [From _- _Philippe Deléham_, Nov 29 2008]
1 3 9 27 80 ...
2 5 14 40 ...
3 7 19 ...
4 9 5 ...
(PARI) { for (n = 0, 200, write("b059502.txt", n, " ", (3*n*fibonacci(2*n - 1) + (3 - n)*fibonacci(2*n))/5); ) } [From _\\ _Harry J. Smith_, Jun 27 2009]
(MAGMA) [(3*n*Fibonacci(2*n-1)+(3-n)*Fibonacci(2*n))/5: n in [0..100]]; // _Vincenzo Librandi, _, Apr 23 2011
approved
editing
<a href="/index/Rec#order_04">Index to sequences with entries for linear recurrences with constant coefficients</a>, signature (6,-11,6,-1).
_Floor van Lamoen (fvlamoen(AT)hotmail.com), _, Jan 19 2001
Table[(3n Fibonacci[2n-1]+(3-n)Fibonacci[2n])/5, {n, 0, 30}] (* or *) CoefficientList[Series[x(1-x)(1-2x)/(1-3x+x^2)^2, {x, 0, 30}], x] (* From _Harvey P. Dale, _, Apr 23 2011 *)
a(n)=A147703(n,1). [From _Philippe DELEHAM_, Deléham_, Nov 29 2008]
editing
approved