OFFSET
13,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 13..200
FORMULA
a(n) = (n!/12!)*Stirling2(n-2, n-12). - Vladeta Jovovic, Jan 28 2004
a(n) = n! * (n-12)*(n-11)*(n-10)*(n-9)*(n-8)*(n-7)*(n-6)*(n-5)*(n-4)*(n-3)*(n-2)*(99*n^9 - 9207*n^8 + 377586*n^7 - 8955870*n^6 + 135276603*n^5 - 1348112183*n^4 + 8853485696*n^3 - 36897359092*n^2 + 88399944688*n - 92577669120) / 176211865192366080000. - Vaclav Kotesovec, Jul 25 2014
MATHEMATICA
Table[n! * (n-12)*(n-11)*(n-10)*(n-9)*(n-8)*(n-7)*(n-6)*(n-5)*(n-4)*(n-3)*(n-2)*(99*n^9 - 9207*n^8 + 377586*n^7 - 8955870*n^6 + 135276603*n^5 - 1348112183*n^4 + 8853485696*n^3 - 36897359092*n^2 + 88399944688*n - 92577669120) / 176211865192366080000, {n, 13, 25}] (* Vaclav Kotesovec, Jul 25 2014 *)
Table[(n!/12!)*StirlingS2[n-2, n-12], {n, 13, 30}] (* G. C. Greubel, Feb 07 2018 *)
PROG
(Magma) [Factorial(n)*(n-12)*(n-11)*(n-10)*(n-9)*(n-8)*(n-7)*(n-6)*(n-5)*(n-4)*(n-3)*(n-2)*(99*n^9 - 9207*n^8 + 377586*n^7 - 8955870*n^6 + 135276603*n^5 - 1348112183*n^4 + 8853485696*n^3 - 36897359092*n^2 + 88399944688*n - 92577669120) / 176211865192366080000: n in [13..25]]; // Vincenzo Librandi, Jul 25 2014
(PARI) for(n=13, 30, print1((n!/12!)*stirling(n-2, n-12, 2), ", ")) \\ G. C. Greubel, Feb 07 2018
(Magma) [(Factorial(n)/Factorial(12))*StirlingSecond(n-2, n-12): n in [13..30]]; // G. C. Greubel, Feb 07 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Christian G. Bower, May 11 2000
EXTENSIONS
Missing a(24) inserted by Andrew Howroyd, Feb 23 2018
STATUS
approved