A162691 Strictly positive numbers n such that 24*n/(24+n) is an integer.
8, 12, 24, 40, 48, 72, 120, 168, 264, 552
Offset: 1
Crossrefs
Cf. A127730. [From Franklin T. Adams-Watters, Aug 07 2009]
Programs
-
Mathematica
f[a_,b_]:=(a*b)/(a+b); a=24;lst={};Do[If[f[a,n]==IntegerPart[f[a,n]],AppendTo[lst,n]],{n,9!}];lst Select[Range[600],IntegerQ[(24#)/(24+#)]&] (* Harvey P. Dale, Jul 30 2021 *)
Extensions
Edited by R. J. Mathar, Jul 13 2009
Comments