A110594
a(1) = 4, a(2) = 12, for n>1: a(n) = 3*4^(n-1).
Original entry on oeis.org
4, 12, 48, 192, 768, 3072, 12288, 49152, 196608, 786432, 3145728, 12582912, 50331648, 201326592, 805306368, 3221225472, 12884901888, 51539607552, 206158430208, 824633720832, 3298534883328, 13194139533312, 52776558133248
Offset: 1
-
Concatenation([4],List([2..25],n->3*4^(n-1))); # Muniru A Asiru, Oct 21 2018
-
[4] cat [3*4^(n-1): n in [2..30]]; // Vincenzo Librandi, May 29 2014
-
seq(coeff(series(4*x*(1-x)/(1-4*x),x,n+1), x, n), n = 1 .. 25); # Muniru A Asiru, Oct 21 2018
-
CoefficientList[Series[4 (1 - x)/(1 - 4 x), {x, 0, 40}], x] (* Vincenzo Librandi, May 29 2014 *)
-
x='x+O('x^50); Vec(4*x*(1 - x)/(1 - 4*x)) \\ G. C. Greubel, Sep 01 2017
A103457
a(n) = 3^n + 1 - 0^n.
Original entry on oeis.org
1, 4, 10, 28, 82, 244, 730, 2188, 6562, 19684, 59050, 177148, 531442, 1594324, 4782970, 14348908, 43046722, 129140164, 387420490, 1162261468, 3486784402, 10460353204, 31381059610, 94143178828, 282429536482, 847288609444
Offset: 0
-
[1] cat [3^n + 1: n in [1..30]]; // G. C. Greubel, Jun 22 2021
-
Join[{1},LinearRecurrence[{4,-3},{4,10},30]] (* Harvey P. Dale, Mar 29 2015 *)
-
my(x='x+O('x^50)); Vec((1-3*x^2)/((1-x)*(1-3*x))) \\ Altug Alkan, Dec 04 2015
-
[1]+[3^n + 1 for n in (1..30)] # G. C. Greubel, Jun 22 2021
A164907
a(n) = (3*3^n-(-1)^n)/2.
Original entry on oeis.org
1, 5, 13, 41, 121, 365, 1093, 3281, 9841, 29525, 88573, 265721, 797161, 2391485, 7174453, 21523361, 64570081, 193710245, 581130733, 1743392201, 5230176601, 15690529805, 47071589413, 141214768241, 423644304721, 1270932914165
Offset: 0
Equals
A046717 without initial term 1 and
A080925 without initial term 0. Equals
A084182 / 2 from second term onward.
-
[ (3*3^n-(-1)^n)/2: n in [0..25] ];
-
A164907:=n->(3*3^n - (-1)^n)/2; seq(A164907(n), n=0..30); # Wesley Ivan Hurt, Mar 21 2014
-
Table[(3*3^n - (-1)^n)/2, {n, 0, 30}] (* Wesley Ivan Hurt, Mar 21 2014 *)
LinearRecurrence[{2,3},{1,5},50] (* Harvey P. Dale, Oct 31 2018 *)
A110595
a(1)=5. For n > 1, a(n) = 4*5^(n-1) = A005054(n).
Original entry on oeis.org
5, 20, 100, 500, 2500, 12500, 62500, 312500, 1562500, 7812500, 39062500, 195312500, 976562500, 4882812500, 24414062500, 122070312500, 610351562500, 3051757812500, 15258789062500, 76293945312500, 381469726562500
Offset: 1
-
Join[{5},NestList[5#&,20,20]] (* Harvey P. Dale, Jun 19 2013 *)
Rest[CoefficientList[Series[5 x (1 - x)/(1 - 5 x), {x,0,50}], x]] (* G. C. Greubel, Sep 01 2017 *)
-
my(x='x+O('x^50)); Vec(5*x*(1-x)/(1-5*x)) \\ G. C. Greubel, Sep 01 2017
Showing 1-4 of 4 results.
Comments