A301717 Partial sums of A301716.
1, 7, 19, 37, 55, 85, 121, 157, 205, 253, 307, 373, 439, 511, 589, 673, 763, 859, 961, 1063, 1177, 1297, 1417, 1549, 1681, 1819, 1969, 2119, 2275, 2437, 2605, 2779, 2959, 3145, 3331, 3529, 3733, 3937, 4153, 4369, 4591, 4825, 5059, 5299, 5545, 5797, 6055, 6319, 6589, 6859, 7141, 7429, 7717, 8017, 8317, 8623
Offset: 0
Keywords
Links
- Ray Chandler, Table of n, a(n) for n = 0..1000
- Index entries for linear recurrences with constant coefficients, signature (1, 0, 1, -1, 1, -1, 0, -1, 1).
Crossrefs
Cf. A301716.
Programs
-
Mathematica
Accumulate[LinearRecurrence[{0,0,1,0,1,0,0,-1},{1,6,12,18,18,30,36,36,48},60]] (* or *) LinearRecurrence[{1,0,1,-1,1,-1,0,-1,1},{1,7,19,37,55,85,121,157,205},60] (* Harvey P. Dale, Sep 07 2024 *)
Formula
From Colin Barker, Apr 09 2018: (Start)
G.f.: (1 + 6*x + 12*x^2 + 17*x^3 + 12*x^4 + 17*x^5 + 12*x^6 + 6*x^7 + x^8) / ((1 - x)^3*(1 + x + x^2)*(1 + x + x^2 + x^3 + x^4)).
a(n) = a(n-1) + a(n-3) - a(n-4) + a(n-5) - a(n-6) - a(n-8) + a(n-9) for n>8.
(End)
Comments