A162690 Strictly positive numbers n such that 20*n/(20+n) are integers.
5, 20, 30, 60, 80, 180, 380
Offset: 1
Crossrefs
Cf. A127730. [From Franklin T. Adams-Watters, Aug 07 2009]
Programs
-
Mathematica
f[a_,b_]:=(a*b)/(a+b); a=20;lst={};Do[If[f[a,n]==IntegerPart[f[a,n]], AppendTo[lst,n]],{n,9!}];lst
Extensions
Edited by R. J. Mathar, Jul 13 2009
Comments