A259547 a(n) = n^4*Fibonacci(n).

0, 1, 16, 162, 768, 3125, 10368, 31213, 86016, 223074, 550000, 1303049, 2985984, 6654713, 14482832, 30881250, 64684032, 133383037, 271257984, 544872101, 1082400000, 2128789026, 4148908016, 8019403537, 15383789568, 29306640625, 55473687568, 104384578338

Offset

0,3

Links

Colin Barker, Table of n, a(n) for n = 0..1000

Index entries for linear recurrences with constant coefficients, signature (5,-5,-10,15,11,-15,-10,5,5,1).

Formula

G.f.: -x*(x^8-11*x^7+87*x^6-48*x^5+240*x^4+48*x^3+87*x^2+11*x+1) / (x^2+x-1)^5.

Maple

a:= n-> n^4*(<<1|1>, <1|0>>^n)[1, 2]:
seq(a(n), n=0..50);  # Alois P. Heinz, Jun 30 2015

Mathematica

Table[n^4 Fibonacci[n], {n, 0, 30}] (* or *) LinearRecurrence[{5, -5, -10, 15, 11, -15, -10, 5, 5, 1}, {0, 1, 16, 162, 768, 3125, 10368, 31213, 86016, 223074}, 30] (* Harvey P. Dale, Mar 09 2016 *)

Prog

(PARI) a(n) = n^4*fibonacci(n)
(PARI) concat(0, Vec(-x*(x^8 -11*x^7 +87*x^6 -48*x^5 +240*x^4 +48*x^3 +87*x^2 +11*x +1)/(x^2 +x -1)^5 + O(x^50)))

Crossrefs

Cf. A000045, A000583, A045925, A259451, A259546.

Sequence in context: A238533 A085538 A371195 * A211558 A333062 A208311

Adjacent sequences: A259544 A259545 A259546 * A259548 A259549 A259550

Keyword

nonn,easy

Author

Colin Barker, Jun 30 2015

Status

approved