login
A131723
a(2*n) = 1-n^2, a(2*n+1) = n*(n+1).
5
0, 2, -3, 6, -8, 12, -15, 20, -24, 30, -35, 42, -48, 56, -63, 72, -80, 90, -99, 110, -120, 132, -143, 156, -168, 182, -195, 210, -224, 240, -255, 272, -288, 306, -323, 342, -360, 380, -399, 420, -440, 462, -483, 506, -528, 552, -575, 600, -624, 650, -675
OFFSET
0,2
COMMENTS
See A167683 for link to Hankel transform of A007325. Partial sum of signed version of A000096. [Paul Barry, Nov 09 2009]
FORMULA
From Paul Barry, Nov 09 2009: (Start)
G.f.: x*(2+x)/((1+x)^3*(1-x)).
a(n) = -(-1)^n*(2*n^2+8*n+3-3*(-1)^n)/8. (End)
From Wesley Ivan Hurt, Jun 07 2016: (Start)
a(n) = -2*a(n-1) + 2*a(n-3) + a(n-4) for n>3.
a(n) = -(-1)^n*floor((n+1)*(n+3)/4).
a(2k) = - A005563(k), a(2k-1) = A002378(k) for k>0. (End)
MAPLE
A131723:=n->-(-1)^n*floor((n+1)*(n+3)/4): seq(A131723(n), n=0..100); # Wesley Ivan Hurt, Jun 07 2016
MATHEMATICA
Table[-(-1)^n*Floor[(n + 1)*(n + 3)/4], {n, 0, 100}] (* Wesley Ivan Hurt, Jun 07 2016 *)
PROG
(Magma) [-(-1)^n*(2*n^2+8*n+3-3*(-1)^n)/8: n in [0..50]]; // Vincenzo Librandi, Aug 10 2011
CROSSREFS
KEYWORD
sign,easy
AUTHOR
Paul Curtz, Sep 16 2007
EXTENSIONS
More terms from Vincenzo Librandi, Aug 10 2011
STATUS
approved