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 A110821 #18 Dec 14 2021 14:14:58 %S A110821 1,2,12,24,36,60,180,240,360,720,1260,1680,3600,5040,6720,10080,15120, %T A110821 20160,25200,32400,55440,60480,100800,110880,181440,221760,226800, %U A110821 277200,665280,720720,810000,907200,1108800,1441440,1587600,1995840,2494800,2882880,3548160,3603600 %N A110821 SuperRefactorable numbers: m=A005179(n) such that k=m/n is an integer. %C A110821 Refactorable numbers, A033950, such that m=A073904(n)=A005179(n). %H A110821 David A. Corneth, <a href="/A110821/b110821.txt">Table of n, a(n) for n = 1..10000</a> %e A110821 k = m/n = 1, 1, 2, 3, 4, 5, 10, 12, 15, 24, 35, 42, ... is an integer. %e A110821 For instance: 60/12=5, 180/18=10, 240/20=12, 360/24=15. %t A110821 t = Table[0, {2^10}]; Do[ d = DivisorSigma[0, n]; If[ d < 2^10 && t[[d]] == 0, t[[d]] = n], {n, 2882880}]; Rest[ Union[ t[[ Select[ Range[2^10], IntegerQ[ t[[ # ]]/# ] &]] ]]] (* _Robert G. Wilson v_, Sep 21 2005 *) %Y A110821 Cf. A033950, A005179, A007416 and A073904. %K A110821 nonn %O A110821 1,2 %A A110821 _Thomas Ordowski_, Sep 16 2005 %E A110821 More terms from _Robert G. Wilson v_, Sep 21 2005 %E A110821 Data corrected by _David A. Corneth_, Dec 11 2021