reviewed
approved
reviewed
approved
proposed
reviewed
editing
proposed
Table[n - 1 + RootSum[-1 - # + #^3 &, #^(n - 1) &] + (1 - (-1)^n) RootSum[-1 + #^2 + #^3 &, #^((n - 1)/2) &], {n, 2, 3050}]
LinearRecurrence[{2, -1, 1, -1, 0, 0, -1, 0, 1, 1, -1}, {1, 2, 6, 8, 10, 15, 14, 12, 21, 35, 33}, 2050]
CoefficientList[Series[(1 + 3 x^2 - 3 x^3 - x^4 - x^5 - 8 x^6 - 2 x^7 + 8 x^8 + 11 x^9 - 9 x^10)/((-1 + x)^2 (1 - x^3 - x^4 - x^5 - x^6 + x^8 + x^9)), {x, 0, 2050}], x]
proposed
editing
editing
proposed
<a href="/index/Rec#order_11">Index entries for linear recurrences with constant coefficients</a>, signature (2,-1,1,-1,0,0,-1,0,1,1,-1).
G.f.: x^2*(1 + 3*x^2 - 3*x^3 - x^4 - x^5 - 8*x^6 - 2*x^7 + 8*x^8 + 11*x^9 - 9*x^10)/((-1 + x)^2*(1 - x^3 - x^4 - x^5 - x^6 + x^8 + x^9)).
Table[n - 1 + RootSum[-1 - # + #^3 &, #^(n - 1) &] + (1 - (-1)^n) RootSum[-1 + #^2 + #^3 &, #^((n - 1)/2) &], {n, 2, 30}]
LinearRecurrence[{2, -1, 1, -1, 0, 0, -1, 0, 1, 1, -1}, {1, 2, 6, 8, 10, 15, 14, 12, 21, 35, 33}, 20]
CoefficientList[Series[(1 + 3 x^2 - 3 x^3 - x^4 - x^5 - 8 x^6 - 2 x^7 + 8 x^8 + 11 x^9 - 9 x^10)/((-1 + x)^2 (1 - x^3 - x^4 - x^5 - x^6 + x^8 + x^9)), {x, 0, 20}], x]
approved
editing
proposed
approved
editing
proposed
Sequence extrapolated Wheel graphs are defined for n>=4; extended to n=2 using formula. - _Andrew Howroyd_, Apr 15 2018
Terms a(2)-a(3) and terms a(20) and beyond from Andrew Howroyd, Apr 15 2018