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.
%I A070033 #11 Oct 15 2013 22:31:18 %S A070033 1,3,2,10,20,6,12,42,30,60,120,210,630,420,840,2520,10080,9240,27720, %T A070033 55440,120120,360360,720720,2162160,6126120,12252240,36756720, %U A070033 116396280,232792560,698377680,2677114440,5354228880,26771144400,155272637520,465817912560 %N A070033 Least number m such that integer part of sigma(m)/phi(m) equals n. %C A070033 a(36) <= 1552726375200. a(37) <= 9316358251200. - _Donovan Johnson_, Oct 18 2012 %F A070033 a(n)=Min{x : Floor[A000203(x)/A000010(x)]=n} %t A070033 t=Table[0, {100}]; Do[c=Floor[DivisorSigma[1, n]/EulerPhi[n]]; If[c<101&&t[[c]]== 0, t[[c]]=n], {n, 1, 100000}]; t %Y A070033 Cf. A000203, A000010, A070032. %K A070033 nonn %O A070033 1,2 %A A070033 _Labos Elemer_, Apr 15 2002 %E A070033 Two more terms from _Labos Elemer_, May 18 2004 %E A070033 a(30)-a(33) from _Donovan Johnson_, Apr 14 2010 %E A070033 a(34)-a(35) from _Donovan Johnson_, Oct 18 2012