|
|
|
|
#12 by Charles R Greathouse IV at Thu Sep 08 08:45:53 EDT 2022
|
| PROG
|
(MAGMAMagma) [775] cat [2*4^(n+5)+91*2^(n+2)-1: n in [1..25]]; // Vincenzo Librandi, Sep 24 2013
|
|
|
Discussion
|
Thu Sep 08
| 08:45
| OEIS Server: https://oeis.org/edit/global/2944
|
|
|
|
#11 by Ray Chandler at Tue Jul 28 10:23:18 EDT 2015
|
|
|
|
#10 by Ray Chandler at Tue Jul 28 10:23:14 EDT 2015
|
| LINKS
|
<a href="/index/Rec#order_03">Index entries for linear recurrences with constant coefficients</a>, signature (7, -14, 8).
|
| STATUS
|
approved
editing
|
|
|
|
#9 by Bruno Berselli at Tue Sep 24 06:50:34 EDT 2013
|
|
|
|
#8 by Bruno Berselli at Tue Sep 24 06:50:23 EDT 2013
|
| MATHEMATICA
|
CoefficientList[Series[(775 + 3494 x - - 17360 x^2 + 13088 x^3)/((1 - x) (1 - 2 x) (1 - 4 x)), {x, 0, 40}], x] (* Vincenzo Librandi, Sep 24 2013 *)
|
| KEYWORD
|
nonn,easy,changed
|
| STATUS
|
proposed
editing
|
|
|
|
#7 by Vincenzo Librandi at Tue Sep 24 05:29:08 EDT 2013
|
|
|
|
#6 by Vincenzo Librandi at Tue Sep 24 05:28:58 EDT 2013
|
| LINKS
|
Vincenzo Librandi, <a href="/A177845/b177845.txt">Table of n, a(n) for n = 0..1000</a>
|
| MATHEMATICA
|
CoefficientList[Series[(775 + 3494 x -17360 x^2 + 13088 x^3)/((1 - x) (1 - 2 x) (1 - 4 x)), {x, 0, 40}], x] (* Vincenzo Librandi, Sep 24 2013 *)
|
| PROG
|
(MAGMA) [775] cat [2*4^(n+5)+91*2^(n+2)-1: n in [1..25]]; // Vincenzo Librandi, Sep 24 2013
|
| STATUS
|
approved
editing
|
|
|
|
#5 by Harvey P. Dale at Mon Mar 04 07:00:38 EST 2013
|
|
|
|
#4 by Harvey P. Dale at Mon Mar 04 07:00:22 EST 2013
|
| FORMULA
|
a(0)=775, a(1)=8919, a(2)=34223, a(3)=133983, a(n)=7*a(n-1)-14*a(n-2)+8*a(n-3). - Harvey P. Dale, Mar 04 2013
|
|
|
|
#3 by Harvey P. Dale at Mon Mar 04 06:58:54 EST 2013
|
| MATHEMATICA
|
nxt[{a_, b_}]:={b, 6b-8a-3}; Join[{775}, Transpose[NestList[nxt, {8919, 34223}, 20]][[1]]] (* or *) Join[{775}, LinearRecurrence[{7, -14, 8}, {8919, 34223, 133983}, 20]] (* Harvey P. Dale, Mar 04 2013 *)
|
| STATUS
|
approved
editing
|
|
|
|