A162824 Positive numbers k such that 48*k/(48-k) are integers.

12, 16, 24, 30, 32, 36, 39, 40, 42, 44, 45, 46, 47, 48, 49, 50, 51, 52, 54, 56, 57, 60, 64, 66, 72, 80, 84, 96, 112, 120, 144, 176, 192, 240, 304, 336, 432, 624, 816, 1200, 2352

Offset

1,1

Comments

The number k=48 is explicitly included.

Row 48 of A191973.

Links

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

Maple

for m from 1 to 2352 do if(m=48 or m*48 mod (m-48) = 0)then printf("%d, ", m): fi: od: # Nathaniel Johnston, Jun 22 2011

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

Crossrefs

Cf. A162688, A162689, A162690, A162691, A162692, A162693, A162694, A162817, A162818, A162819, A162820, A162821, A162822, A162823, A191973.

Sequence in context: A363798 A070329 A064695 * A335224 A335244 A330546

Adjacent sequences: A162821 A162822 A162823 * A162825 A162826 A162827

Keyword

nonn,fini,full,easy

Author

Vladimir Joseph Stephan Orlovsky, Jul 13 2009

Extensions

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

Status

approved