|
%I #6 Jul 28 2014 18:22:10
%S 1,100,5941,275705,11110464,410474625,14353045401,484748595081,
%T 16029615164446,523952747921310,17044414451764396,554568496974014588,
%U 18113988555378974988,595604303387826752023,19755504320385394380715,662039152774864970449891
%N Number of permutations of length n with longest increasing subsequence of length 10.
%H Alois P. Heinz, <a href="/A245666/b245666.txt">Table of n, a(n) for n = 10..60</a>
%p h:= proc(l) local n; n:= nops(l); add(i, i=l)! /mul(mul(1+l[i]-j
%p +add(`if`(l[k]>=j, 1, 0), k=i+1..n), j=1..l[i]), i=1..n) end:
%p g:= (n, i, l)-> `if`(n=0 or i=1, h([l[], 1$n])^2, `if`(i<1, 0,
%p add(g(n-i*j, i-1, [l[], i$j]), j=0..n/i))):
%p a:= n-> g(n-10, min(n-10, 10), [10]):
%p seq(a(n), n=10..30);
%Y Column k=10 of A047874.
%K nonn
%O 10,2
%A _Alois P. Heinz_, Jul 28 2014
|
