|
%I #6 Dec 18 2018 12:31:27
%S 16,24,48,80,96,144,208,240,336,528,720,1104,2256
%N Positive numbers n such that 48*n/(48+n) are integers.
%t f[a_,b_]:=(a*b)/(a+b); a=48;lst={};Do[If[f[a,n]==IntegerPart[f[a,n]], AppendTo[lst,n]],{n,9!}];lst
%t Select[Range[2300],IntegerQ[(48#)/(48+#)]&] (* _Harvey P. Dale_, Dec 18 2018 *)
%Y Cf. A162688, A162689, A162690, A162691, A162692, A162693, A162694, A162817, A162818
%Y Cf. A127730. [From _Franklin T. Adams-Watters_, Aug 07 2009]
%K nonn,fini,full
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Jul 13 2009
%E Keywords fini,full added by _R. J. Mathar_, Jul 31 2009
|
