|
|
|
|
|
|
|
|
|
#49 by Harvey P. Dale at Fri May 26 12:45:31 EDT 2023
|
|
|
|
|
|
|
|
#48 by Harvey P. Dale at Fri May 26 12:45:28 EDT 2023
|
|
| MATHEMATICA
|
CoefficientList[Series[(3-x-x^3)/((x-1)^2(1+x+x^2+x^3)), {x, 0, 100}], x] (* Harvey P. Dale, May 26 2023 *)
|
|
| STATUS
|
approved
editing
|
|
|
|
|
|
|
#47 by Charles R Greathouse IV at Thu Sep 08 08:46:14 EDT 2022
|
|
| PROG
|
(MAGMAMagma) [(2*n+13+5*(-1)^n-6*(-1)^((2*n+3+(-1)^n) div 4))/8 : n in [0..100]];
(MAGMAMagma) &cat[[3+n, 2+n, 2+n, 1+n]: n in [0..20]]; // Bruno Berselli, Sep 29 2015
(MAGMAMagma) I:=[3, 2, 2, 1, 4]; [n le 5 select I[n] else Self(n-1) + Self(n-4) - Self(n-5): n in [1..100]]; // Vincenzo Librandi, Sep 29 2015
|
|
|
|
|
Discussion
|
| Thu Sep 08
| 08:46
| OEIS Server: https://oeis.org/edit/global/2944
|
|
|
|
|
|
|
#46 by Michael Somos at Fri Oct 02 09:52:56 EDT 2015
|
|
|
|
|
|
|
|
#45 by Michael Somos at Fri Oct 02 09:52:41 EDT 2015
|
|
| FORMULA
|
a(n) = -a(-13 - n) for all n in Z. - Michael Somos, Oct 02 2015
|
|
| EXAMPLE
|
G.f. = 3 + 2*x + 2*x^2 + x^3 + 4*x^4 + 3*x^5 + 3*x^6 + 2*x^7 + 5*x^8 + 4*x^9 + ...
|
|
| PROG
|
(PARI) {a(n) = my(k = n\4); [ 3, 2, 2, 1][n%4 + 1] + k}; /* Michael Somos, Oct 02 2015 */
|
|
| STATUS
|
approved
editing
|
|
|
|
|
Discussion
|
| Fri Oct 02
| 09:52
| Michael Somos: Added more info.
|
|
|
|
|
|
|
#44 by Bruno Berselli at Wed Sep 30 11:16:06 EDT 2015
|
|
|
|
|
|
|
|
#43 by Bruno Berselli at Wed Sep 30 11:16:03 EDT 2015
|
|
| EXTENSIONS
|
Edited by Bruno Berselli, Sep 30 2015
|
|
| STATUS
|
approved
editing
|
|
|
|
|
|
|
#42 by Bruno Berselli at Wed Sep 30 09:51:35 EDT 2015
|
|
|
|
|
|
|
|
#41 by Wesley Ivan Hurt at Wed Sep 30 09:48:42 EDT 2015
|
|
|
|
|
|
|
|
#40 by Wesley Ivan Hurt at Wed Sep 30 09:48:37 EDT 2015
|
|
|
|
|
|
|
