OFFSET
0,2
LINKS
Muniru A Asiru, Table of n, a(n) for n = 0..200
Index entries for linear recurrences with constant coefficients, signature (15,-70,120,-64).
FORMULA
From Colin Barker, Jan 27 2018: (Start)
a(n) = ((2^(n+1)-1)^2 * (2^(n+2)-1)) / 3.
a(n) = 15*a(n-1) - 70*a(n-2) + 120*a(n-3) - 64*a(n-4) for n>3.
(End)
MAPLE
a := seq(((2^(n+1)-1)^2 * (2^(n+2)-1))/3, n = 0..200); # Muniru A Asiru, Jan 27 2018
MATHEMATICA
CoefficientList[Series[(6x+1)/((x-1)(2x-1)(4x-1)(8x-1)), {x, 0, 30}], x] (* or *) LinearRecurrence[{15, -70, 120, -64}, {1, 21, 245, 2325}, 30] (* Harvey P. Dale, Jul 16 2018 *)
PROG
(GAP) a := List([0..200], n->((2^(n+1)-1)^2*(2^(n+2)-1))/3); # Muniru A Asiru, Jan 27 2018
(PARI) Vec((6*x + 1) / ((x - 1)*(2*x - 1)*(4*x - 1)*(8*x - 1)) + O(x^30)) \\ Colin Barker, Jan 27 2018
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Roger L. Bagula, May 12 2010
EXTENSIONS
STATUS
approved