login
A110052
Expansion of x*(-1+4*x)/((x-1)*(2*x-1)*(4*x^2+4*x-1)).
2
0, 1, 3, 11, 43, 187, 859, 4059, 19419, 93403, 450267, 2172635, 10487515, 50632411, 244463323, 1180350171, 5699188443, 27518023387, 132868585179, 641545909979, 3097656932059, 14956809271003, 72217860617947, 348698671167195
OFFSET
0,3
FORMULA
From Colin Barker, May 01 2019: (Start)
a(n) = (-3/7 + 2^(-1+n) - ((-4+sqrt(2))*(2*(1+sqrt(2)))^n + (2-2*sqrt(2))^n*(4+sqrt(2))) / (28*sqrt(2))).
a(n) = 7*a(n-1) - 10*a(n-2) - 4*a(n-3) + 8*a(n-4) for n>3.
(End)
MAPLE
seriestolist(series(x*(-1+4*x)/((x-1)*(2*x-1)*(4*x^2+4*x-1)), x=0, 25)); -or- Floretion Algebra Multiplication Program, FAMP Code: 2basekrokseq:[A*B] with A = + 'i - .5'j + .5'k - .5j' + .5k' - 'ii' - .5'ij' - .5'ik' - .5'ji' - .5'ki' and B = - .5'i + .5'j + 'k - .5i' + .5j' - 'kk' - .5'ik' - .5'jk' - .5'ki' - .5'kj'; RokType: Y[15] = Y[15] + 1/2
PROG
(PARI) concat(0, Vec(x*(1 - 4*x) / ((1 - x)*(1 - 2*x)*(1 - 4*x - 4*x^2)) + O(x^30))) \\ Colin Barker, May 01 2019
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Creighton Dement, Jul 10 2005
STATUS
approved