OFFSET
0,2
MATHEMATICA
Select[Table[Times@@Range[n, n+9]/Total[Range[n, n+9]], {n, 0, 150}], IntegerQ] (* Harvey P. Dale, Sep 02 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Patrick De Geest, May 15 1998
STATUS
approved