OFFSET
1,3
COMMENTS
(d-19)/2 where d >= 19 divides 85734032330071125. In particular, the sequence is finite. - Robert Israel, Jul 13 2018
LINKS
Robert Israel, Table of n, a(n) for n = 1..8739
MAPLE
sort([seq((t-19)/2, t=select(`>=`, numtheory:-divisors(85734032330071125), 19))]); # Robert Israel, Jul 13 2018
MATHEMATICA
Select[Range[0, 190], IntegerQ[Times@@Range[#, #+19]/Total[Range[#, #+19]]]&] (* Harvey P. Dale, Sep 02 2016 *)
Select[Range[0, 190], With[{c=Range[#, #+19]}, Mod[Times@@c, Total[c]]==0&]] (* Harvey P. Dale, Nov 20 2024 *)
CROSSREFS
KEYWORD
nonn,fini,full
AUTHOR
Patrick De Geest, May 15 1998
EXTENSIONS
Definition corrected by Harvey P. Dale, Sep 02 2016
Offset changed by Robert Israel, Jul 13 2018
STATUS
approved