A162692 Strictly positive numbers n such that 28*n/(28+n) are integers.
21, 28, 70, 84, 168, 364, 756
Offset: 1
Crossrefs
Programs
-
Mathematica
f[a_,b_]:=(a*b)/(a+b); a=28;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