|
|
A099503
|
|
Expansion of 1/(1-4*x+x^3).
|
|
5
|
|
|
1, 4, 16, 63, 248, 976, 3841, 15116, 59488, 234111, 921328, 3625824, 14269185, 56155412, 220995824, 869714111, 3422701032, 13469808304, 53009519105, 208615375388, 820991693248, 3230957253887, 12715213640160, 50039862867392
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
A transform of A000302 under the mapping g(x) ->(1/(1+x^3)) * g(x/(1+x^3)).
|
|
LINKS
|
|
|
FORMULA
|
a(n) = 4*a(n-1) - a(n-3).
a(n) = Sum_{k=0..floor(n/3)} binomial(n-2*k, k)*(-1)^k*4^(n-3*k).
|
|
MATHEMATICA
|
CoefficientList[Series[1/(1-4x+x^3), {x, 0, 30}], x] (* Harvey P. Dale, Apr 01 2011 *)
LinearRecurrence[{4, 0, -1}, {1, 4, 16}, 30] (* G. C. Greubel, Aug 03 2023 *)
|
|
PROG
|
(Magma) [n le 3 select 4^(n-1) else 4*Self(n-1) -Self(n-3): n in [1..30]]; // G. C. Greubel, Aug 03 2023
(SageMath)
@CachedFunction
if (n<3): return 4^n
else: return 4*a(n-1) - a(n-3)
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|