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 A162538 #11 Dec 14 2015 10:00:47
%S A162538 1,3,5,7,0,11,13,21,17,19,0,23,45,39,29,31,0,46,37,57,41,43,0,47,0,99,
%T A162538 53,91,0,59,61,93,86,67,116,71,73,111,125,79,0,83,0,129,89,0,0,141,97,
%U A162538 0,101,103,0,107,109,188,113,0,0,158,169,183,166,127,261,131,0,201,137
%N A162538 The smallest number with an arithmetic mean of divisors equal to n; 0 if nonexistent.
%C A162538 a(n) is the smallest k such that sigma(k)/tau(k) = A000203(k)/A000005(k) = n.
%C A162538 Zeros occur if n is in A157847 (i.e., not in A157846).
%e A162538 a(7)= 13 because sigma(13)=14 and tau(13)= 2 so 14/2 = 7.
%e A162538 a(8)= 21 because sigma(21)=32 and tau(21)= 4 so 32/4 = 8.
%t A162538 Table[SelectFirst[Range[10^3],n*DivisorSigma[0,#]==DivisorSigma[1,#]&],{n,70}]/.(Missing["NotFound"]->0) (* _Harvey P. Dale_, Dec 14 2015 *)
%Y A162538 Cf. A003601.
%K A162538 nonn
%O A162538 1,2
%A A162538 _Claudio Meller_, Jul 05 2009
%E A162538 Edited by _R. J. Mathar_, Aug 07 2009