|
|
|
|
1, 1, 2, 2, 3, 4, 7, 11, 18, 28, 45, 72, 117, 189, 306, 494, 799, 1292, 2091, 3383, 5474, 8856, 14329, 23184, 37513, 60697, 98210, 158906, 257115, 416020, 673135, 1089155, 1762290, 2851444, 4613733, 7465176, 12078909, 19544085, 31622994, 51167078, 82790071, 133957148
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
COMMENTS
|
Also the NW-SE diagonal sums of A173398.
|
|
LINKS
|
|
|
FORMULA
|
a(n) = 1/2-(-1)^n/6+A057079(n+4)/6+A000045(n)/2 with g.f. -x*(-1+x+x^4)/ ((x-1) * (1+x) * (x^2+x-1) * (x^2-x+1)). - R. J. Mathar, Mar 04 2010
|
|
MAPLE
|
f:=gfun:-rectoproc({-a(n) - a(n + 1) + a(n + 2) - a(n + 3) - a(n + 4) + a(n + 5) + 1, a(0) = 0, a(1) = 1, a(2) = 1, a(3) = 2, a(4) = 2, a(5) = 3}, a(n), remember):
|
|
MATHEMATICA
|
CoefficientList[Series[-x*(-1+x+x^4)/((x-1)*(1+x)*(x^2+x-1)*(x^2-x+1)), {x, 0, 42}], x] (* Georg Fischer, Jun 11 2019 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|