cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A162825 Positive numbers k such that 60*k/(60-k) are integers.

This page as a plain text file.
%I A162825 #14 Sep 26 2023 14:55:31
%S A162825 10,12,15,20,24,30,35,36,40,42,44,45,48,50,51,52,54,55,56,57,58,59,60,
%T A162825 61,62,63,64,65,66,68,69,70,72,75,76,78,80,84,85,90,96,100,105,108,
%U A162825 110,120,132,135,140,150,160,180,204,210,240,260,285,300,360,420
%N A162825 Positive numbers k such that 60*k/(60-k) are integers.
%C A162825 The number k=60 is explicitly included. The last entry in the sequence is a(68) = 3660.
%C A162825 Row 60 of A191973.
%H A162825 Nathaniel Johnston, <a href="/A162825/b162825.txt">Table of n, a(n) for n = 1..68</a> (full sequence)
%p A162825 for n from 1 to 3660 do if(n=60 or type(60*n/(60-n),integer))then printf("%d, ",n): fi: od: # _Nathaniel Johnston_, Jun 22 2011
%t A162825 f[a_,b_]:=(a*b)/(a-b); a=60;lst={};Do[If[f[a,n]==IntegerPart[f[a,n]], AppendTo[lst,n]],{n,9!}];lst
%t A162825 Select[Range[500],If[#==60,True,IntegerQ[(60#)/(60-#)]]&] (* _Harvey P. Dale_, Sep 26 2023 *)
%Y A162825 Cf. A162688, A162689, A162690, A162691, A162692, A162693, A162694, A162817, A162818, A162819, A162820, A162821, A162822, A162823, A162824, A191973.
%K A162825 nonn,easy,fini,full
%O A162825 1,1
%A A162825 _Vladimir Joseph Stephan Orlovsky_, Jul 13 2009
%E A162825 Keyword fini added by _R. J. Mathar_, Jul 31 2009