A162693 Strictly positive numbers n such that 30*n/(30+n) are integers.
6, 15, 20, 30, 45, 60, 70, 120, 150, 195, 270, 420, 870
Offset: 1
Crossrefs
Programs
-
Mathematica
f[a_,b_]:=(a*b)/(a+b); a=30;lst={};Do[If[f[a,n]==IntegerPart[f[a,n]],AppendTo[lst,n]],{n,9!}];lst Select[Range[1000],IntegerQ[(30#)/(30+#)]&] (* Harvey P. Dale, Sep 25 2019 *)
Extensions
Edited by R. J. Mathar, Jul 13 2009
Comments