A180670 a(n) = a(n-1)+a(n-2)+a(n-3)+(8*n^3-48*n^2+112*n-96)/3 with a(0)=0, a(1)=0 and a(2)=1.
0, 0, 1, 9, 42, 140, 383, 925, 2056, 4316, 8705, 17069, 32810, 62192, 116743, 217673, 404000, 747496, 1380177, 2544865, 4688186, 8631620, 15886111, 29230725, 53776968, 98926372, 181971057, 334716197, 615660634, 1132400520
Offset: 0
Links
- Index entries for linear recurrences with constant coefficients, signature (5,-9,7,-3,3,-3,1).
Crossrefs
Programs
-
Maple
nmax:=29: a(0):=0: a(1):=0: a(2):=1: for n from 3 to nmax do a(n):= a(n-1)+a(n-2)+a(n-3)+(8*n^3-48*n^2+112*n-96)/3 od: seq(a(n),n=0..nmax);
-
Mathematica
RecurrenceTable[{a[0]==a[1]==0,a[2]==1,a[n]==a[n-1]+a[n-2]+a[n-3]+(8n^3-48n^2+112n-96)/3},a,{n,30}] (* or *) LinearRecurrence[{5,-9,7,-3,3,-3,1},{0,0,1,9,42,140,383},30] (* Harvey P. Dale, Dec 04 2019 *)
Comments