OFFSET
0,3
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..1000 [a(0)=0 added by Georg Fischer, Feb 02 2021]
Index entries for linear recurrences with constant coefficients, signature (1,1,-1).
FORMULA
From R. J. Mathar, Jan 05 2011: (Start)
a(n) = 3*A110654(n-1) for n >= 1.
G.f.: 3*x^2 / ( (1+x)*(x-1)^2 ). (End)
a(n) = a(n-1) + a(n-2) - a(n-3). - Vincenzo Librandi, Sep 16 2013
E.g.f.: 3*(exp(x)*x - sinh(x))/2. - G. C. Greubel, Jul 16 2016
a(n) = 3*floor(n/2). - Daniel Checa, Mar 10 2024
MATHEMATICA
CoefficientList[Series[3*x^2/((1 + x)*(x - 1)^2), {x, 0, 70}], x] (* Vincenzo Librandi, Sep 16 2013 *)
Table[(6*n + 3*(-1)^n - 3)/4, {n, 0, 50}] (* or *)
LinearRecurrence[{1, 1, -1}, {0, 0, 3, 3}, 50] (* G. C. Greubel, Jul 16 2016 *)
With[{c=Range[0, 108, 3]}, Riffle[c, c]] (* Harvey P. Dale, Feb 03 2021 *)
PROG
(Magma) [3*n/2-3/4+3*(-1)^n/4: n in [0..70]]; // Vincenzo Librandi, Sep 16 2013
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Nov 21 2009
EXTENSIONS
New definition by R. J. Mathar, Jan 05 2011
a(0)=0 added by N. J. A. Sloane, Feb 02 2021 at the suggestion of Allan C. Wechsler
STATUS
approved