|
|
|
|
#32 by Charles R Greathouse IV at Thu Sep 08 08:45:47 EDT 2022
|
| PROG
|
(MAGMAMagma) R<x>:=PowerSeriesRing(Integers(), 40); Coefficients(R!( (1+x)*(1-x^6)/(1-2*x+2*x^6-x^7) )); // G. C. Greubel, Apr 25 2019
|
|
|
Discussion
|
Thu Sep 08
| 08:45
| OEIS Server: https://oeis.org/edit/global/2944
|
|
|
|
#31 by Charles R Greathouse IV at Thu Jul 22 10:37:48 EDT 2021
|
|
|
|
#30 by Charles R Greathouse IV at Thu Jul 22 10:37:47 EDT 2021
|
| KEYWORD
|
nonn,easy
|
| STATUS
|
approved
editing
|
|
|
|
#29 by Wesley Ivan Hurt at Fri May 07 13:12:23 EDT 2021
|
|
|
|
#28 by Wesley Ivan Hurt at Fri May 07 13:12:18 EDT 2021
|
| FORMULA
|
a(n) = -a(n-6) + Sum_{k=1..5} a(n-k). - Wesley Ivan Hurt, May 07 2021
|
| STATUS
|
approved
editing
|
|
|
|
#27 by Susanna Cuyler at Thu Apr 25 09:32:02 EDT 2019
|
|
|
|
#26 by Michel Marcus at Thu Apr 25 02:42:08 EDT 2019
|
|
|
|
#25 by G. C. Greubel at Thu Apr 25 01:37:52 EDT 2019
|
|
|
|
#24 by G. C. Greubel at Thu Apr 25 01:36:56 EDT 2019
|
| FORMULA
|
G.f.: (1+x)*(1-x^6)/(1-2*x+2*x^6-x^7). - G. C. Greubel, Apr 25 2019
|
| MATHEMATICA
|
CoefficientList[Series[(x^6 + 2*x^5 + 2*1+x^4 + 2*)*(1-x^3 + 6)/(1-2*x^2 + +2*x + 1)/(x^6 - x^5 - x^4 - x^3 - -x^2 - x + 17), {x, 0, 5040}], x] (* G. C. Greubel, Aug 06 2017, modified Apr 25 2019 *)
|
| PROG
|
(PARI) x='x+O('x^5040); Vec((x^6 + +2*x^5 + +2*x^4 + +2*x^3 + +2*x^2 + +2*x + +1)/(x^6 - -x^5 - - x^4 - -x^3 - -x^2 - -x + +1)) \\ G. C. Greubel, Aug 06 2017
(MAGMA) R<x>:=PowerSeriesRing(Integers(), 40); Coefficients(R!( (1+x)*(1-x^6)/(1-2*x+2*x^6-x^7) )); // G. C. Greubel, Apr 25 2019
(Sage) ((1+x)*(1-x^6)/(1-2*x+2*x^6-x^7)).series(x, 40).coefficients(x, sparse=False) # G. C. Greubel, Apr 25 2019
|
| STATUS
|
approved
editing
|
|
|
|
#23 by N. J. A. Sloane at Sun Aug 06 22:44:20 EDT 2017
|
|
|
|