A090965 a(n) = 8*a(n-1) - 4*a(n-2), where a(0) = 1, a(1) = 4.

1, 4, 28, 208, 1552, 11584, 86464, 645376, 4817152, 35955712, 268377088, 2003193856, 14952042496, 111603564544, 833020346368, 6217748512768, 46409906716672, 346408259682304, 2585626450591744, 19299378566004736

Offset

0,2

Links

G. C. Greubel, Table of n, a(n) for n = 0..1000

Index entries for linear recurrences with constant coefficients, signature (8,-4).

Formula

a(n) = Sum_{k>=0} binomial(2*n, 2*k)*3^k = Sum_{k>=0} A086645(n, k)*3^k.

a(n) = 2^n*A001075(n).

G.f.: (1-4*x)/(1-8*x+4*x^2). - Philippe Deléham, Sep 07 2009

G.f.: G(0)/2, where G(k)= 1 + 1/(1 - x*(3*k-4)/(x*(3*k-1) - 1/G(k+1))); (continued fraction). - Sergei N. Gladkovskii, May 28 2013

From Peter Bala, Feb 19 2022: (Start)

a(n) = Sum_{k = 0..floor(n/2)} 4^(n-2*k)*12^k*binomial(n,2*k).

a(n) = [x^n] (4*x + sqrt(1 + 12*x^2))^n.

G.f.: A(x) = 1 + x*B'(x)/B(x), where B(x) = 1/sqrt(1 - 8*x + 4*x^2) is the g.f. of A069835.

The Gauss congruences a(n*p^k) == a(n*p^(k-1)) (mod p^k) hold for all primes p and positive integers n and k. (End)

Mathematica

LinearRecurrence[{8, -4}, {1, 4}, 20] (* G. C. Greubel, Feb 03 2019 *)

Prog

(Sage) [lucas_number2(n, 8, 4)/2 for n in range(0, 21)] # Zerinvary Lajos, Jul 08 2008
(PARI) my(x='x+O('x^20)); Vec((1-4*x)/(1-8*x+4*x^2)) \\ G. C. Greubel, Feb 03 2019
(Magma) m:=20; R<x>:=PowerSeriesRing(Integers(), m); Coefficients(R!( (1-4*x)/(1-8*x+4*x^2) )); // G. C. Greubel, Feb 03 2019
(GAP) a:=[1, 4];; for n in [3..20] do a[n]:=8*a[n-1]-4*a[n-2]; od; a; # G. C. Greubel, Feb 03 2019

Crossrefs

Cf. A001075.

Sum_{k>=0} A086645(n,k)*m^k for m = 0, 1, 2, 4 gives A000007, A081294, A001541, A083884.

Sequence in context: A019482 A198630 A246021 * A106258 A085363 A275650

Adjacent sequences: A090962 A090963 A090964 * A090966 A090967 A090968

Keyword

easy,nonn

Author

Philippe Deléham, Feb 29 2004

Extensions

Corrected by T. D. Noe, Nov 07 2006

Status

approved