|
|
|
|
#28 by Charles R Greathouse IV at Thu Sep 08 08:45:15 EDT 2022
|
| PROG
|
(MAGMAMagma) I:=[1, 4, 20]; [n le 3 select I[n] else 4*Self(n-1) + 4*Self(n-2) - Self(n-3): n in [1..30]]; // G. C. Greubel, Dec 31 2017
|
|
|
Discussion
|
Thu Sep 08
| 08:45
| OEIS Server: https://oeis.org/edit/global/2944
|
|
|
|
#27 by N. J. A. Sloane at Tue Jun 02 22:27:40 EDT 2020
|
|
|
|
#26 by N. J. A. Sloane at Tue Jun 02 22:27:38 EDT 2020
|
| REFERENCES
|
R. C. Alperin, A nonlinear recurrence and its relations to Chebyshev polynomials, Fib. Q., 58:2 (2020), 140-142.
|
| STATUS
|
approved
editing
|
|
|
|
#25 by Susanna Cuyler at Mon Jan 01 04:19:44 EST 2018
|
|
|
|
#24 by Michel Marcus at Mon Jan 01 02:10:18 EST 2018
|
|
|
|
#23 by Michel Marcus at Mon Jan 01 02:10:13 EST 2018
|
| PROG
|
(MAGMA) I:=[1, 4, 20]; [n le 3 select I[n] else 4*Self(n-1) + 4*Self(n-2) - SefSelf(n-3): n in [1..30]]; // G. C. Greubel, Dec 31 2017
|
| STATUS
|
proposed
editing
|
|
|
|
#22 by G. C. Greubel at Sun Dec 31 18:12:34 EST 2017
|
|
|
|
#21 by G. C. Greubel at Sun Dec 31 18:11:43 EST 2017
|
| FORMULA
|
a(n) = (1/7) [)*[A030221(n+2) - A003501(n+2) + (-1)^n].
|
| MATHEMATICA
|
CoefficientList[Series[1/((1+x)*(1-5*x+x^2)), {x, 0, 50}], x] (* or *) LinearRecurrence[{4, 4, -1}, {1, 4, 20}, 30] (* G. C. Greubel, Dec 31 2017 *)
|
| PROG
|
(MAGMA) I:=[1, 4, 20]; [n le 3 select I[n] else 4*Self(n-1) + 4*Self(n-2) - Sef(n-3): n in [1..30]]; // G. C. Greubel, Dec 31 2017
|
| STATUS
|
approved
editing
|
|
|
|
#20 by Alois P. Heinz at Wed Nov 02 11:57:12 EDT 2016
|
|
|
|
#19 by Colin Barker at Wed Nov 02 11:28:50 EDT 2016
|
|
|
|