|
PROG
|
(PARI) a(n)=([0, 1, 0, 0, 0, 0, 0, 0; 0, 0, 1, 0, 0, 0, 0, 0; 0, 0, 0, 1, 0, 0, 0, 0; 0, 0, 0, 0, 1, 0, 0, 0; 0, 0, 0, 0, 0, 1, 0, 0; 0, 0, 0, 0, 0, 0, 1, 0; 0, 0, 0, 0, 0, 0, 0, 1; -1, 8, -28, 56, -70, 56, -28, 8]^n*[1; 57; 995; 8683; 48429; 198677; 653791; 1825719])[1, 1] \\ Charles R Greathouse IV, Feb 10 2017
(PARI) vector(30, n, m=n-1; (35 +37*m +679*m^2 +392*m^3 +280*m^4 +518*m^5 -14*m^6 +68*m^7)/35) \\ G. C. Greubel, Sep 13 2019
(Magma) [(35 +37*n +679*n^2 +392*n^3 +280*n^4 +518*n^5 -14*n^6 +68*n^7)/35: n in [0..30]]; // G. C. Greubel, Sep 13 2019
(Sage) [(35 +37*n +679*n^2 +392*n^3 +280*n^4 +518*n^5 -14*n^6 +68*n^7)/35 for n in (0..30)] # G. C. Greubel, Sep 13 2019
(GAP) List([0..30], n-> (35 +37*n +679*n^2 +392*n^3 +280*n^4 +518*n^5 -14*n^6 +68*n^7)/35); # G. C. Greubel, Sep 13 2019
|