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 A163163 #15 Mar 02 2018 22:44:41
%S A163163 1,3,3,6,3,10,3,11,7,12,3,22,3,14,13,20,3,27,3,28,15,18,3,44,9,20,17,
%T A163163 34,3,50,3,37,19,24,17,64,3,26,21,58,3,62,3,46,39,30,3,86,11,49,25,52,
%U A163163 3,74,21,72,27,36,3,120,3,38,47,70,23,86,3,64,31,82,3,135,3,44,55,70,23,98,3
%N A163163 a(n) = sigma(n) + tau(n) - n.
%H A163163 Antti Karttunen, <a href="/A163163/b163163.txt">Table of n, a(n) for n = 1..65537</a>
%H A163163 Antti Karttunen, <a href="/A163163/a163163.png">Sequence plotted up to n=10000, showing the details better</a>
%F A163163 a(n) = A007503(n) - n = A000203(n) + A000005(n) - n.
%F A163163 a(n) = A000005(n) + A001065(n). - _Antti Karttunen_, Feb 25 2018
%e A163163 a(10) = A007503(10) - 10 = 22 - 10 = 12.
%t A163163 Table[Apply[Plus, DivisorSigma[#, n] & /@ {0, 1}] - n, {n, 79}] (* _Michael De Vlieger_, Feb 25 2018 *)
%o A163163 (PARI) A163163(n) = (sigma(n)+numdiv(n)-n); \\ _Antti Karttunen_, Feb 25 2018
%Y A163163 Cf. A000005, A000027, A000203, A001065, A007503.
%K A163163 nonn,easy
%O A163163 1,2
%A A163163 _Juri-Stepan Gerasimov_, Jul 22 2009
%E A163163 47 replaced with 37 by _R. J. Mathar_, Jul 25 2009