|
|
A005945
|
|
Number of n-step mappings with 4 inputs.
(Formerly M4966)
|
|
10
|
|
|
0, 1, 15, 60, 154, 315, 561, 910, 1380, 1989, 2755, 3696, 4830, 6175, 7749, 9570, 11656, 14025, 16695, 19684, 23010, 26691, 30745, 35190, 40044, 45325, 51051, 57240, 63910, 71079, 78765, 86986, 95760, 105105, 115039, 125580, 136746
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
COMMENTS
|
a(n) is the coefficient of x^4/4! in n-th iteration of exp(x)-1.
|
|
REFERENCES
|
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
|
|
LINKS
|
|
|
FORMULA
|
G.f.: x*(1+11*x+6*x^2)/(1-x)^4. a(n)=n*(3*n-1)*(2*n-1)/2.
|
|
EXAMPLE
|
G.f. = x + 15*x^2 + 60*x^3 + 154*x^4 + 315*x^5 + 561*x^6 + 910*x^7 + ...
|
|
MATHEMATICA
|
LinearRecurrence[{4, -6, 4, -1}, {0, 1, 15, 60}, 50] (* Vincenzo Librandi, Jun 18 2012 *)
a[ n_] := 3 n^3 - 5/2 n^2 + 1/2 n; (* Michael Somos, Jun 10 2015 *)
|
|
PROG
|
(PARI) {a(n) = 3*n^3 - 5/2*n^2 + 1/2*n}; /* Michael Somos, Jan 23 2014 */
(Magma) I:=[0, 1, 15, 60]; [n le 4 select I[n] else 4*Self(n-1)-6*Self(n-2)+4*Self(n-3)-Self(n-4): n in [1..45]]; // Vincenzo Librandi Jun 18 2012
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|