|
|
|
|
|
|
|
|
|
#12 by Charles R Greathouse IV at Thu Sep 08 08:44:45 EDT 2022
|
|
| PROG
|
(MAGMAMagma) m:=20; R<x>:=PowerSeriesRing(Integers(), m); Coefficients(R!(1/((1-5*x)*(1-8*x)*(1-9*x)))); /* or */ I:=[1, 22, 327]; [n le 3 select I[n] else 22*Self(n-1)-157*Self(n-2)+360*Self(n-3): n in [1..20]]; // Vincenzo Librandi, Jul 03 2013
|
|
|
|
|
Discussion
|
| Thu Sep 08
| 08:44
| OEIS Server: https://oeis.org/edit/global/2944
|
|
|
|
|
|
|
#11 by Charles R Greathouse IV at Sat Jun 13 00:48:54 EDT 2015
|
|
| LINKS
|
<a href="/index/Rec">Index to sequencesentries withfor linear recurrences with constant coefficients</a>, signature (22,-157,360).
|
|
|
|
|
Discussion
|
| Sat Jun 13
| 00:48
| OEIS Server: https://oeis.org/edit/global/2439
|
|
|
|
|
|
|
#10 by Charles R Greathouse IV at Fri Jun 12 15:23:32 EDT 2015
|
|
| LINKS
|
<a href="/index/Rea#recLCCRec">Index to sequences with linear recurrences with constant coefficients</a>, signature (22,-157,360).
|
|
|
|
|
Discussion
|
| Fri Jun 12
| 15:23
| OEIS Server: https://oeis.org/edit/global/2436
|
|
|
|
|
|
|
#9 by Bruno Berselli at Thu Jul 04 03:23:29 EDT 2013
|
|
|
|
|
|
|
|
#8 by Vincenzo Librandi at Wed Jul 03 14:06:47 EDT 2013
|
|
|
|
|
|
|
|
#7 by Vincenzo Librandi at Wed Jul 03 14:06:39 EDT 2013
|
|
| LINKS
|
<a href="/index/Rea#recLCC">Index to sequences with linear recurrences with constant coefficients</a>, signature (22,-157,360).
<a href="/index/Rea#recLCC">Index to sequences with linear recurrences with constant coefficients</a>, signature (22,-157,360).
|
|
|
|
|
|
|
#6 by Vincenzo Librandi at Wed Jul 03 14:06:13 EDT 2013
|
|
| LINKS
|
<a href="/index/Rea#recLCC">Index to sequences with linear recurrences with constant coefficients</a>, signature (22,-157,360).
Vincenzo Librandi, <a href="/A020343/b020343.txt">Table of n, a(n) for n = 0..200</a>
|
|
| FORMULA
|
a(0)=1, a(1)=22, a(3)=327; for n>2, a(n) = 22*a(n-1) -157*a(n-2) +360*a(n-3). - Vincenzo Librandi, Jul 03 2013
a(n) = 17*a(n-1) -72*a(n-2) +5^n. - Vincenzo Librandi, Jul 03 2013
|
|
| MATHEMATICA
|
CoefficientList[Series[1 / ((1 - 5 x) (1 - 8 x) (1 - 9 x)), {x, 0, 20}], x] (* Vincenzo Librandi, Jul 03 2013 *)
|
|
| PROG
|
(MAGMA) m:=20; R<x>:=PowerSeriesRing(Integers(), m); Coefficients(R!(1/((1-5*x)*(1-8*x)*(1-9*x)))); /* or */ I:=[1, 22, 327]; [n le 3 select I[n] else 22*Self(n-1)-157*Self(n-2)+360*Self(n-3): n in [1..20]]; // Vincenzo Librandi, Jul 03 2013
|
|
| KEYWORD
|
nonn,easy,changed
|
|
| STATUS
|
approved
editing
|
|
|
|
|
|
|
#5 by R. J. Mathar at Sat Jun 29 12:21:37 EDT 2013
|
|
|
|
|
|
|
|
#4 by R. J. Mathar at Sat Jun 29 12:11:19 EDT 2013
|
|
| FORMULA
|
a(n) = 25*5^n/12 -64*8^n/3 +81*9^n/4. - R. J. Mathar, Jun 29 2013
|
|
| STATUS
|
approved
editing
|
|
|
|
|
|
|
#3 by Russ Cox at Fri Mar 30 16:46:33 EDT 2012
|
|
| AUTHOR
|
_N. J. A. Sloane (njas(AT)research.att.com)._.
|
|
|
|
|
Discussion
|
| Fri Mar 30
| 16:46
| OEIS Server: https://oeis.org/edit/global/110
|
|
|
|
|
|
