A048489 a(n) = 7 * 2^n - 6.
1, 8, 22, 50, 106, 218, 442, 890, 1786, 3578, 7162, 14330, 28666, 57338, 114682, 229370, 458746, 917498, 1835002, 3670010, 7340026, 14680058, 29360122, 58720250, 117440506, 234881018, 469762042, 939524090, 1879048186
Offset: 0
Links
- Vincenzo Librandi, Table of n, a(n) for n = 0..1000
- Jim Bumgardner, Variations of the Componium, 2013
- S. Kitaev, On multi-avoidance of right angled numbered polyomino patterns, Integers: Electronic Journal of Combinatorial Number Theory 4 (2004), A21, 20pp.
- Index entries for linear recurrences with constant coefficients, signature (3,-2).
Crossrefs
Programs
-
Maple
A048489:=n->7*2^n-6: seq(A048489(n), n=0..40); # Wesley Ivan Hurt, Apr 18 2017
-
Mathematica
CoefficientList[Series[(1 + 5 x)/((2 x - 1) (x - 1)), {x, 0, 28}], x] (* Michael De Vlieger, May 22 2018 *) 7*2^Range[0,30]-6 (* or *) LinearRecurrence[{3,-2},{1,8},30] (* Harvey P. Dale, May 19 2019 *)
-
PARI
a(n)=7<
Charles R Greathouse IV, Dec 10 2013
Formula
a(n) = 2*a(n-1)+6 with n>0, a(0)=1. - Vincenzo Librandi, Aug 06 2010
G.f.: ( 1+5*x ) / ( (2*x-1)*(x-1) ). - R. J. Mathar, Oct 21 2012
a(n) = A063757(2*n). - Philippe Deléham, Apr 13 2013
Comments