A162819 Positive numbers n such that 48*n/(48+n) are integers.

16, 24, 48, 80, 96, 144, 208, 240, 336, 528, 720, 1104, 2256

Offset

1,1

Links

Table of n, a(n) for n=1..13.

Mathematica

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
Select[Range[2300], IntegerQ[(48#)/(48+#)]&] (* Harvey P. Dale, Dec 18 2018 *)

Crossrefs

Cf. A162688, A162689, A162690, A162691, A162692, A162693, A162694, A162817, A162818

Cf. A127730. [From Franklin T. Adams-Watters, Aug 07 2009]

Sequence in context: A046434 A111046 A205187 * A029720 A204696 A024588

Adjacent sequences: A162816 A162817 A162818 * A162820 A162821 A162822

Keyword

nonn,fini,full

Author

Vladimir Joseph Stephan Orlovsky, Jul 13 2009

Extensions

Keywords fini,full added by R. J. Mathar, Jul 31 2009

Status

approved