%I #25 Sep 03 2024 15:03:09
%S 0,4,28,224,1784,13692,102036,745432,5374192,38400500,272709644,
%T 1928498640,13597146600,95668307308,672119557252,4717043931848,
%U 33080342679008,231867574534116,1624598900644860,11379821699045056
%N a(n) = 2n+7^n-5^n.
%H Vincenzo Librandi, <a href="/A121203/b121203.txt">Table of n, a(n) for n = 0..1000</a>
%H <a href="/index/Rec#order_04">Index entries for linear recurrences with constant coefficients</a>, signature (14,-60,82,-35).
%F G.f.: 4*x*(1-7*x+18*x^2)/((1-x)^2*(1-5*x)*(1-7*x)). - _Vincenzo Librandi_, Feb 25 2013
%F a(n) = 14*a(n-1)-60*a(n-2)+82*a(n-3)-35*a(n-4). - _Vincenzo Librandi_, Feb 26 2013
%t CoefficientList[Series[4 x (1 - 7 x + 18 x^2)/((1-x)^2 (1-5 x)(1-7 x)), {x, 0, 30}], x] (* _Vincenzo Librandi_, Feb 25 2013 *)
%o (Magma) [2*n+7^n-5^n: n in [0..30]]; // _Vincenzo Librandi_, Feb 26 2013
%o (Magma) I:=[0,4,28,224]; [n le 4 select I[n] else 14*Self(n-1)-60*Self(n-2)+82*Self(n-3)-35*Self(n-4): n in [1..20]]; // _Vincenzo Librandi_, Feb 26 2013
%Y Cf. A074616.
%K nonn,easy
%O 0,2
%A _Mohammad K. Azarian_, Aug 19 2006
%E Edited by _Ray Chandler_, Sep 06 2006