reviewed

approved

proposed

reviewed

editing

proposed

(Magma) [((2*n+1)*(7*n^2+7*n+12) -3*(-1)^n*n*(n-7) +6*(-1)^Binomial(n, 2)*(2*n-3*(-1)^n+1))/96: n in [1..41]]; // G. C. Greubel, Dec 10 2023

(Magma) [((2*n+1)*(7*n^2+7*n+12) -3*(-1)^n*n*(n-7) +6*(-1)^binomial(n, 2)*(2*n-3*(-1)^n+1))/96: n in [1..41]]; // G. C. Greubel, Dec 10 2023

proposed

editing

Michel Marcus: right ?

editing

proposed

1, 3, 6, 15, 26, 41, 62, 92, 129, 169, 224, 287, 366, 443, 548, 656, 793, 919, 1090, 1255, 1466, 1653, 1906, 2140, 2441, 2701, 3052, 3367, 3774, 4119, 4584, 4992, 5521, 5963, 6558, 7071, 7738, 8289, 9030, 9660, 10481, 11153, 12056, 12815, 13806, 14611, 15692, 16592

G.f.: x*( 1+2*x+2*x^2+7*x^3+6*x^4+2*x^5+6*x^6+x^7+2*x^5+x^8 ) / ( (1+x)^3*(1-x)^4*(1+x^2)^2 ). - R. J. Mathar, Sep 05 2012

(Magma) m:=35; R<x>:=PowerSeriesRing(Integers(), m); Coefficients(R!((1+2*x+2*x^2+7*x^3+6*x^4+2*x^5+6*x^6+x^7+2*x^5+x^8)/((x^2+1)^2*(1+x)^3*(x-1)^4))); // Bruno Berselli, Sep 05 2012

proposed

editing

editing

proposed

(Maxima) makelist(expand(((2*n+1)*(7*n^2+7*n+12)-3*n*(n-7)*(-1)^n+6*(2*n-3*(-1)^n+1)*%i^(n*(n-1)))/96), n, 1, 35); [_); /* _Bruno Berselli_, Sep 05 2012] */

proposed

editing

editing

proposed

G.f.: x*( 1+2*x+2*x^2+7*x^3+6*x^4+6*x^6+x^7+2*x^5+x^8 ) / ( (x^2+1)^2*(1+x)^3*(x-1-x)^4*(1+x^2)^2 ). - R. J. Mathar, Sep 05 2012

proposed

editing