[go: up one dir, main page]

login
A240525
a(n) = 2^(n-2)*(2^(n+4)-(-1)^n+5).
1
5, 19, 68, 268, 1040, 4144, 16448, 65728, 262400, 1049344, 4195328, 16780288, 67112960, 268447744, 1073758208, 4295016448, 17179934720, 68719673344, 274878169088, 1099512414208, 4398047559680, 17592189190144, 70368748371968, 281474989293568, 1125899923619840
OFFSET
0,1
FORMULA
G.f.: (5-x-28*x^2)/(1-4*x-4*x^2+16*x^3).
a(n) = 4*a(n-1) + 4*a(n-2)- 16*a(n-3) with n>2, a(0)=5, a(1)=19, a(2)=68.
a(n) = (5*2^n-(-2)^n)/4+4^(n+1) = A084221(n)+A000302(n+1).
MATHEMATICA
CoefficientList[Series[(5 - x - 28 x^2)/(1 - 4 x - 4 x^2 + 16 x^3), {x, 0, 33}], x]
PROG
(Magma) [2^(n-2)*(2^(n+4)-(-1)^n+5): n in [0..25]] /* or */ I:=[5, 19, 68]; [n le 3 select I[n] else 4*Self(n-1)+4*Self(n-2)-16*Self(n-3): n in [1..30]]
(PARI) a(n)=(2^(n+4)-(-1)^n+5)<<(n-2) \\ Charles R Greathouse IV, Aug 26 2014
CROSSREFS
Sequence in context: A070857 A143954 A047145 * A264200 A055991 A030662
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Apr 07 2014
STATUS
approved