|
|
|
|
4, 196, 676, 1444, 2500, 3844, 5476, 7396, 9604, 12100, 14884, 17956, 21316, 24964, 28900, 33124, 37636, 42436, 47524, 52900, 58564, 64516, 70756, 77284, 84100, 91204, 98596, 106276, 114244, 122500
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
CoefficientList[Series[4*(1+46*x+25*x^2)/(1-x)^3, {x, 0, 50}], x] (* Vincenzo Librandi, Jul 07 2012 *)
LinearRecurrence[{3, -3, 1}, {4, 196, 676}, 40] (* Harvey P. Dale, Oct 19 2012 *)
|
|
PROG
|
(Magma) I:=[4, 196, 676]; [n le 3 select I[n] else 3*Self(n-1)-3*Self(n-2)+Self(n-3): n in [1..50]]; // Vincenzo Librandi, Jul 07 2012
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|