OFFSET
10,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 10..200
FORMULA
a(n) = (n!/9!)*Stirling2(n-2, n-9). - Vladeta Jovovic, Jan 28 2004
a(n) = n! * (n-9)^2*(n-8)^2*(n-7)*(n-6)*(n-5)*(n-4)*(n-3)*(n-2)*(9*n^4 - 270*n^3 + 2967*n^2 - 14098*n + 24352)/2106910310400. - Vaclav Kotesovec, Jul 25 2014
MAPLE
a:= n-> (n!/9!)*Stirling2(n-2, n-9):
seq(a(n), n=10..25); # Alois P. Heinz, Mar 06 2012
MATHEMATICA
Table[n! * (n-9)^2*(n-8)^2*(n-7)*(n-6)*(n-5)*(n-4)*(n-3)*(n-2)*(9*n^4 - 270*n^3 + 2967*n^2 - 14098*n + 24352)/2106910310400, {n, 10, 25}] (* Vaclav Kotesovec, Jul 25 2014 *)
PROG
(Maxima) A055321(n) := block(
A055314(n, 9)
)$
for n : 10 thru 25 do
print(A055321(n), " ") ; /* R. J. Mathar, Mar 06 2012 */
(PARI) A055321(n)={binomial(n, 9)*sum(i=0, n-=9, (-1)^i*binomial(n, i)*i^(n+7))*(-1)^n} /* or: Stirling2(n-2, n-9)*n!/9!, cf. A008277 */ /* M. F. Hasler, Mar 06 2012 */
(Magma) [Factorial(n)*(n-9)^2*(n-8)^2*(n-7)*(n-6)*(n-5)*(n-4)*(n-3)*(n-2)*(9*n^4 - 270*n^3 + 2967*n^2 - 14098*n + 24352)/2106910310400: n in [10..25]]; // Vincenzo Librandi, Jul 25 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Christian G. Bower, May 11 2000
STATUS
approved