|
| |
|
|
A157984
|
|
a(n) = n!/(7 * 20!).
|
|
0
|
|
|
|
3, 66, 1518, 36432, 910800, 23680800, 639381600, 17902684800, 519177859200, 15575335776000, 482835409056000, 15450733089792000, 509874191963136000, 17335722526746624000, 606750288436131840000, 21843010383700746240000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
21,1
|
|
|
COMMENTS
|
From calculations for a Witt design:
http://www.math.uic.edu/~ronan/Witt_design;
a(n)*8!/3! - 48*n!/19!
|
|
|
LINKS
|
|
|
|
MATHEMATICA
|
Flatten[Table[If[IntegerQ[48*3!*n!/(8!*19! )], 48*3!*n!/( 8!*19! ), {}], {n, 0, 48}]] (* Roger L. Bagula *)
Select[With[{n=48 3!, d=8! 19!}, Table[(n i!)/d, {i, 50}]], IntegerQ] (* Harvey P. Dale, Jan 05 2011 *)
|
|
|
CROSSREFS
|
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
|
|
|
STATUS
|
approved
|
| |
|
|
