|
%I #8 Aug 15 2017 03:08:35
%S 1,1,2,140,105,840840,51051,79755701025,143400750442950,
%T 122535439350874224675,46705681584242830001657805,
%U 65358008635496174751045143339993779875
%N a(n) = A093886(n)/(1!*2!*3!*...*n!).
%e a(4) = 140 = 8! /(1!*2!*3!*4!) = 40320/288.
%p a:=proc(n) local A,k: A:={}: for k from 1 to n*(n+1)/2 do if type(k!/product(j!,j=1..n),integer)=true then A:=A union {k} else A:=A fi od: A[1]!/product(i!,i=1..n); end: seq(a(n),n=1..14); # not necessarily the best Maple program # _Emeric Deutsch_, Feb 03 2006
%Y Cf. A093886.
%K nonn
%O 1,3
%A _Amarnath Murthy_, Apr 23 2004
%E More terms from _Emeric Deutsch_, Feb 03 2006
|
