Original entry on oeis.org
2, 6, 30, 146, 698, 3358, 16342, 80298, 397170, 1972790, 9824654, 49005250, 244672042, 1222297422, 6108298566, 30531927002, 152630937314, 763068593254, 3815084686078, 19074648589554, 95370918424986, 476847618556286
Offset: 0
-
[3^n+5^n-2*n: n in [0..30]]; // Vincenzo Librandi, Feb 27 2013
-
Table[3^n + 5^n - 2 n, {n, 0, 30}] (* or *) CoefficientList[Series[2 (1 - 7 x + 17 x^2 - 19 x^3)/((1 - 5 x) (1 - 3 x) (1 - x)^2), {x, 0, 30}], x] (* Vincenzo Librandi, Feb 26 2013 *)
LinearRecurrence[{10,-32,38,-15},{2,6,30,146},30] (* Harvey P. Dale, Apr 27 2016 *)
A120969
a(n) = 8n+5^n-3^n.
Original entry on oeis.org
0, 10, 32, 122, 576, 2922, 14944, 75994, 384128, 1933514, 9706656, 48651066, 243609280, 1219108906, 6098732768, 30503229338, 152544844032, 762810313098, 3814309845280, 19072324066810, 95363944856384, 476826697850090
Offset: 0
-
[8*n+5^n-3^n: n in [0..30]]; // Vincenzo Librandi, Feb 25 2013
-
I:=[0,10,32,122]; [n le 4 select I[n] else 10*Self(n-1)-32*Self(n-2)+38*Self(n-3)-15*Self(n-4): n in [1..30]]; // Vincenzo Librandi, Feb 25 2013
-
CoefficientList[Series[2 x (5 - 34 x + 61 x^2)/((1-x)^2(1-5x)(1-3x)), {x, 0, 30}], x] (* Vincenzo Librandi, Feb 23 2013 *)
Original entry on oeis.org
0, 4, 20, 104, 552, 2892, 14908, 75952, 384080, 1933460, 9706596, 48651000, 243609208, 1219108828, 6098732684, 30503229248, 152544843936, 762810312996, 3814309845172, 19072324066696, 95363944856264, 476826697849964
Offset: 0
-
Table[2 n + 5^n - 3^n, {n, 0, 30}] (* or *) LinearRecurrence[{10, -32, 38, -15},{0, 4, 20, 104}, 30] (* Harvey P. Dale, Jun 15 2011 *)
CoefficientList[Series[2 x (2 - 10 x + 16 x^2)/((1 - x)^2(1 - 5 x)(1 - 3 x)), {x, 0, 30}], x] (* Vincenzo Librandi, Feb 23 2013 *)
Original entry on oeis.org
0, 0, 12, 92, 536, 2872, 14884, 75924, 384048, 1933424, 9706556, 48650956, 243609160, 1219108776, 6098732628, 30503229188, 152544843872, 762810312928, 3814309845100, 19072324066620, 95363944856184, 476826697849880
Offset: 0
-
CoefficientList[Series[4 x^2 (3 - 7 x)/((1 - x)^2 (1 - 5 x)(1 - 3 x)), {x, 0, 30}], x] (* Vincenzo Librandi, Feb 23 2013 *)