OFFSET
0,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..915
Index entries for linear recurrences with constant coefficients, signature (28,-268,1008,-1152).
FORMULA
a(n) = (18*12^(n + 1) - 5*8^(n + 2) + 135*6^n - 2^n)/30. - R. J. Mathar, Jun 23 2013
a(0) = 1, a(1)=28, a(2)=516, a(3)=7952, a(n) = 28*a(n-1) - 268*a(n-2) + 1008*a(n-3) - 1152*a(n-4). - Harvey P. Dale, Jul 25 2013
E.g.f.: (-exp(2*x) + 135*exp(6*x) - 320*exp(8*x) + 216*exp(12*x))/30. - G. C. Greubel, Oct 26 2019
MAPLE
A026738:= n-> (18*12^(n+1) -5*8^(n+2) +135*6^n -2^n)/30: seq(A026738(n), n=0..30); # Wesley Ivan Hurt, Feb 15 2014
MATHEMATICA
CoefficientList[Series[1/((1-2x)(1-6x)(1-8x)(1-12x)), {x, 0, 30}], x] (* or *) LinearRecurrence[{28, -268, 1008, -1152}, {1, 28, 516, 7952}, 30] (* Harvey P. Dale, Jul 25 2013 *)
PROG
(PARI) vector(31, n, (18*12^n -5*8^(n+1) +135*6^(n-1) -2^(n-1))/30) \\ G. C. Greubel, Oct 26 2019
(Magma) [(18*12^(n+1) -5*8^(n+2) +135*6^n -2^n)/30: n in [0..30]]; // G. C. Greubel, Oct 26 2019
(Sage) [(18*12^(n+1) -5*8^(n+2) +135*6^n -2^n)/30 for n in (0..30)] # G. C. Greubel, Oct 26 2019
(GAP) List([0..30], n-> (18*12^(n+1) -5*8^(n+2) +135*6^n -2^n)/30); # G. C. Greubel, Oct 26 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved