%I A157984
%S A157984 3,66,1518,36432,910800,23680800,639381600,17902684800,519177859200,
%T A157984 15575335776000,482835409056000,15450733089792000,509874191963136000,
%U A157984 17335722526746624000,606750288436131840000,21843010383700746240000
%N A157984 Sequence: a(n)=48*3!*n!/(8!*19!)
%C A157984 From calculations for a Witt design:
%C A157984 http://www.math.uic.edu/~ronan/Witt_design;
%C A157984 a(n)*8!/3! - 48*n!/19!
%F A157984 a(n)=3!*n!/(8!*19!)
%t A157984 Flatten[Table[If[IntegerQ[48*3!*n!/(8!*19! )], 48*3!*n!/( 8!*19! ), {}], 
               {n, 0, 48}]]
%Y A157984 Sequence in context: A028567 A003359 A157543 this_sequence A157554 A165655 
               A157576
%Y A157984 Adjacent sequences: A157981 A157982 A157983 this_sequence A157985 A157986 
               A157987
%K A157984 nonn,uned
%O A157984 21,1
%A A157984 Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Mar 10 2009