Revision History for A144902
(Underlined text is an addition;
strikethrough text is a deletion.)
Showing entries 1-10
| older changes
|
|
|
|
#12 by Michael De Vlieger at Wed Jul 27 10:36:28 EDT 2022
|
|
|
|
#11 by Michel Marcus at Wed Jul 27 02:45:08 EDT 2022
|
|
|
|
#10 by G. C. Greubel at Wed Jul 27 02:11:30 EDT 2022
|
|
|
|
#9 by G. C. Greubel at Wed Jul 27 02:11:25 EDT 2022
|
| LINKS
|
<a href="/index/Rec#order_11">Index entries for linear recurrences with constant coefficients</a>, signature (9,-36,85,-134,154,-140,106,-65,29,-8,1).
|
| STATUS
|
proposed
editing
|
|
|
|
#8 by G. C. Greubel at Wed Jul 27 02:01:51 EDT 2022
|
|
|
|
#7 by G. C. Greubel at Wed Jul 27 02:01:05 EDT 2022
|
| FORMULA
|
From G. C. Greubel, Jul 27 2022: (Start)
a(n) = Sum_{j=0..floor((n+7)/3)} binomial(n-2*j+7, j+8).
a(n) = A099567(n+7, 8). (End)
|
| MATHEMATICA
|
CoefficientList[Series[x / ((/((1 - -x - -x^3) ()(1 - -x)^8), {x, 0, 40}], x] (* Vincenzo Librandi, Jun 06 2013 *)
|
| PROG
|
(Magma)
A144903:= func< n | n eq 0 select 0 else (&+[Binomial(n-2*j+7, j+8): j in [0..Floor((n+7)/3)]]) >;
[A144903(n): n in [0..40]]; // G. C. Greubel, Jul 27 2022
(SageMath)
def A144903(n): return sum(binomial(n-2*j+7, j+8) for j in (0..((n+7)//3)))
[A144903(n) for n in (0..40)] # G. C. Greubel, Jul 27 2022
|
| CROSSREFS
|
Cf. A099567.
|
| STATUS
|
approved
editing
|
|
|
|
#6 by Alois P. Heinz at Thu Jun 06 06:30:21 EDT 2013
|
|
|
|
#5 by Alois P. Heinz at Thu Jun 06 06:30:10 EDT 2013
|
| DATA
|
0, 1, 9, 45, 166, 505, 1342, 3224, 7161, 14938, 29602, 56211, 102973, 182963, 316694, 535947, 889454, 1451305, 2333356, 3703510, 5812615, 9034001, 13921551, 21294946, 32364747, 48915873, 73576675, 110213470, 164508959, 244810154, 363371304, 538175735
|
| MAPLE
|
a := := n-> (Matrix(11, (i, , j)-> if i=j-1 then 1 elif j=1 then [9, -36, 85, -134, 154, -140, 106, -65, 29, -8, 1][i] else 0 fi)^n)[1, , 2]: seq ((a(n), n=0..40);
|
| STATUS
|
proposed
editing
|
|
|
|
#4 by Vincenzo Librandi at Thu Jun 06 01:49:34 EDT 2013
|
|
|
|
#3 by Vincenzo Librandi at Thu Jun 06 01:49:25 EDT 2013
|
| LINKS
|
Vincenzo Librandi, <a href="/A144902/b144902.txt">Table of n, a(n) for n = 0..1000</a>
|
| MATHEMATICA
|
CoefficientList[Series[x / ((1 - x - x^3) (1 - x)^8), {x, 0, 40}], x] (* Vincenzo Librandi, Jun 06 2013 *)
|
| KEYWORD
|
nonn,easy
|
| STATUS
|
approved
editing
|
|
|
|
|