OFFSET
0,3
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (2,1,-2).
FORMULA
a(n) = 3*A000975(n-1).
G.f.: 3*x^2/( (x-1)*(2*x-1)*(1+x) ). - R. J. Mathar, Jul 07 2011
MATHEMATICA
Range[0, 20]! CoefficientList[Series[D[(Cosh[x]-1)(Exp[x]-1), x], {x, 0, 20}], x] (* Geoffrey Critzer, Dec 03 2011 *)
LinearRecurrence[{2, 1, -2}, {0, 0, 3}, 60] (* Vladimir Joseph Stephan Orlovsky, Feb 14 2012 *)
Table[2^n - (3 - (-1)^n)/2, {n, 0, 34}] (* Alonso del Arte, Feb 14 2012 *)
PROG
(Magma) [2^n -(3-(-1)^n)/2: n in [0..40]]; // Vincenzo Librandi, Aug 08 2011
(PARI) x='x+O('x^50); concat([0, 0], Vec(3*x^2/((x-1)*(2*x-1)*(1+x)))) \\ G. C. Greubel, Oct 10 2017
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Paul Curtz, Jul 29 2008
STATUS
approved