%I #22 Sep 08 2022 08:45:27
%S 2,10,70,462,3018,19922,133262,901654,6155410,42306714,292240854,
%T 2026154846,14085427802,98109713506,684326588446,4778079088038,
%U 33385518460194,233393453440298,1632228295176038,11417968671701230
%N 7^n+5^n-2n.
%H Vincenzo Librandi, <a href="/A121201/b121201.txt">Table of n, a(n) for n = 0..1000</a>
%H <a href="/index/Rec">Index entries for linear recurrences with constant coefficients</a>, signature (14,-60,82,-35).
%F G.f.: 2*(1-9*x+25*x^2-41*x^3)/((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[2 (1 - 9 x + 25 x^2 - 41 x^3)/((1-x)^2 (1-5 x)(1-7 x)), {x, 0, 30}], x] (* _Vincenzo Librandi_, Feb 25 2013 *)
%t LinearRecurrence[{14,-60,82,-35},{2,10,70,462},30] (* _Harvey P. Dale_, Dec 21 2014 *)
%o (Magma) [7^n+5^n-2*n: n in [0..20]] /* or */ I:=[2,10,70,462]; [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 25 2013
%Y Cf. A074616.
%K nonn,easy
%O 0,1
%A _Mohammad K. Azarian_, Aug 19 2006
%E Edited by _Ray Chandler_, Sep 06 2006
|