|
|
MATHEMATICA
| Flatten[Table[If[IntegerQ[48*3!*n!/(8!*19! )], 48*3!*n!/( 8!*19! ), {}], {n, 0, 48}]] (* From Roger L. Bagula *)
Select[With[{n=48 3!, d=8! 19!}, Table[(n i!)/d, {i, 50}]], IntegerQ] (* From Harvey P. Dale, Jan 05 2011 *)
f[n_] := n!/(7 * 20!); Array[f, 10, 21] (* From Robert G. Wilson v, Jan 05 2011 *)
|
