|
|
|
|
4, 24, 108, 448, 1812, 7272, 29116, 116496, 466020, 1864120, 7456524, 29826144, 119304628, 477218568, 1908874332, 7635497392, 30541989636, 122167958616, 488671834540, 1954687338240, 7818749353044, 31274997412264
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
a(1)=4, a(2)=24, a(3)=108, a(n)=6*a(n-1)-9*a(n-2)+4*a(n-3). - Harvey P. Dale, Nov 27 2013
|
|
MATHEMATICA
|
lst={}; s=0; Do[s+=(s+=(s+=n)); AppendTo[lst, s], {n, 3*4!}]; lst
Accumulate[Table[4(4^n-1)/3, {n, 0, 40}]] (* or *) LinearRecurrence[{6, -9, 4}, {0, 4, 24}, 40] (* Harvey P. Dale, Nov 27 2013 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|