A236203 Interleave A005563(n), A028347(n).
0, 0, 3, 5, 8, 12, 15, 21, 24, 32, 35, 45, 48, 60, 63, 77, 80, 96, 99, 117, 120, 140, 143, 165, 168, 192, 195, 221, 224, 252, 255, 285, 288, 320, 323, 357, 360, 396, 399, 437, 440, 480, 483, 525, 528, 572, 575, 621, 624, 672, 675, 725, 728, 780, 783, 837, 840, 896
Offset: 2
Links
- Vincenzo Librandi, Table of n, a(n) for n = 2..1000
- Index entries for linear recurrences with constant coefficients, signature (1,2,-2,-1,1).
Programs
-
GAP
List([2..60], n-> (2*n^2 +2*n -19 -(2*n-11)*(-1)^n)/8 ); # G. C. Greubel, Dec 04 2019
-
Magma
[(2*n^2 + 2*n - 19 - (2*n - 11)*(-1)^n)/8: n in [2..60]]; // Vincenzo Librandi, Jul 27 2014
-
Maple
seq( (2*n^2 +2*n -19 -(2*n-11)*(-1)^n)/8, n=2..60); # G. C. Greubel, Dec 04 2019
-
Mathematica
CoefficientList[Series[x^2(3x^2-2x-3)/((x-1)^3(x+1)^2), {x, 0, 60}], x] (* Vincenzo Librandi, Jul 27 2014 *) LinearRecurrence[{1,2,-2,-1,1},{0,0,3,5,8},60] (* Harvey P. Dale, Aug 30 2018 *)
-
PARI
concat([0,0], Vec(x^4*(3*x^2-2*x-3)/((x-1)^3*(x+1)^2) + O(x^60))) \\ Colin Barker, Jan 26 2014
-
Sage
[(2*n^2 +2*n -19 -(2*n-11)*(-1)^n)/8 for n in (2..60)] # G. C. Greubel, Dec 04 2019
Formula
a(n+2) = (period 8: repeat 1, 16, 1, 1, 1, 4, 1, 1)*A175628(n+1).
a(n) = 3*a(n-4) - 3*a(n-8) + a(n-12).
a(n+4) - a(n-4) = 0, 8, 8, ... = A168397.
From Colin Barker, Jan 26 2014: (Start)
a(n) = (n^2 -4)/4 for n even, a(n) = (n^2 +2*n -15)/4 for n odd.
G.f.: x^4*(3 + 2*x - 3*x^2)/ ((1-x)^3*(1+x)^2). (End)
a(n) = (2*n^2 + 2*n - 19 - (2*n - 11)*(-1)^n)/8. - Luce ETIENNE, Jul 26 2014
Sum_{n>=4} (-1)^n/a(n) = 11/48. - Amiram Eldar, Aug 21 2022
Extensions
More terms from Colin Barker, Jan 26 2014
Comments