OFFSET
0,2
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (17,-101,247,-210)
FORMULA
a(n) = 12*a(n-1) - 35*a(n-2) + 3^(n+1) - 2^(n+1), n >= 2. - Vincenzo Librandi, Mar 19 2011
a(n) = 7^(n+3)/40 - 2^(n+3)/15 + 3^(n+3)/8 - 5^(n+3)/12. - R. J. Mathar, Mar 19 2011
MAPLE
b:= proc(n, k) option remember; `if`(n=0, 1,
`if`(k=0, 0, ithprime(k)*b(n-1, k)+b(n, k-1)))
end:
a:= n-> b(n, 4):
seq(a(n), n=0..28); # Alois P. Heinz, Jul 14 2021
MATHEMATICA
CoefficientList[Series[1/((1-2x)(1-3x)(1-5x)(1-7x)), {x, 0, 20}], x] (* or *) LinearRecurrence[{17, -101, 247, -210}, {1, 17, 188, 1726}, 20] (* Harvey P. Dale, Aug 05 2013 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
STATUS
approved