A164765 Partial sums of [A080782^2].
1, 10, 14, 30, 66, 91, 140, 221, 285, 385, 529, 650, 819, 1044, 1240, 1496, 1820, 2109, 2470, 2911, 3311, 3795, 4371, 4900, 5525, 6254, 6930, 7714, 8614, 9455, 10416, 11505, 12529, 13685, 14981, 16206, 17575, 19096, 20540, 22140, 23904, 25585
Offset: 1
Links
- Colin Barker, Table of n, a(n) for n = 1..1000
- Index entries for linear recurrences with constant coefficients, signature (2,-1,2,-4,2,-1,2,-1).
Crossrefs
Programs
-
Mathematica
Accumulate[Array[#+Mod[#+1,3]&,70,0]^2] (* Harvey P. Dale, Mar 29 2013 *)
-
PARI
Vec(x*(1 + 8*x - 5*x^2 + 10*x^3 + 4*x^4 - x^5 + x^6) / ((1 - x)^4*(1 + x + x^2)^2) + O(x^40)) \\ Colin Barker, Aug 03 2020
Formula
a(n) = ( n(n+1) + 6 - 8*sin^2(Pi*(n+1)/3) )*(2n+1)/6.
a(n) = Sum_{k=0..n} A080782(k)^2.
From Colin Barker, Aug 03 2020: (Start)
G.f.: x*(1 + 8*x - 5*x^2 + 10*x^3 + 4*x^4 - x^5 + x^6) / ((1 - x)^4*(1 + x + x^2)^2).
a(n) = 2*a(n-1) - a(n-2) + 2*a(n-3) - 4*a(n-4) + 2*a(n-5) - a(n-6) + 2*a(n-7) - a(n-8) for n>8.
(End)
Comments