|
|
|
|
4, 169, 576, 1225, 2116, 3249, 4624, 6241, 8100, 10201, 12544, 15129, 17956, 21025, 24336, 27889, 31684, 35721, 40000, 44521, 49284, 54289, 59536, 65025, 70756, 76729, 82944, 89401, 96100, 103041
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
CoefficientList[Series[(4+157*x+81*x^2)/(1-x)^3, {x, 0, 50}], x] (* Vincenzo Librandi, Jul 07 2012 *)
|
|
PROG
|
(Magma) I:=[4, 169, 576]; [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
|
|
|
|