|
|
A093887
|
|
a(n) = A093886(n)/(1!*2!*3!*...*n!).
|
|
1
|
|
|
1, 1, 2, 140, 105, 840840, 51051, 79755701025, 143400750442950, 122535439350874224675, 46705681584242830001657805, 65358008635496174751045143339993779875
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
EXAMPLE
|
a(4) = 140 = 8! /(1!*2!*3!*4!) = 40320/288.
|
|
MAPLE
|
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
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|