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 A071167 #13 Jul 03 2024 22:13:13
%S A071167 -1,-3,-4,-15,-6,-63,-18,-364,-42,-400,-60,-4095,-72,-90,-102,-3906,
%T A071167 -132,-168,-2380,-174,-65535,-5220,-294,-384,-262143,-12720,-678,-702,
%U A071167 -265720,-744,-762,-774,-828,-840,-25260,-858,-912,-1092,-1098,-1164,-1182,-1194,-1218,-1374,-1428,-1488,-1560
%N A071167 a(n) = A023194 - A062700(n). Negative values of A071166(m) = m-A006530(A000203(m)) differences. In these cases m is square number from A023194.
%F A071167 Values of m - A006530(A000203(m)) differences, when m < A006530(A000203(m)).
%e A071167 m=29929=173, sigma[29929]=1+173+29929=30103 and 29929-30103=-174, the 20th term here.
%t A071167 ma[x_] := Part[Reverse[Flatten[FactorInteger[x]]], 2] Do[s=n-ma[DivisorSigma[1, n]]; If[Equal[Sign[s], -1], Print[s]], {n, 2, 10000000}]
%o A071167 (PARI) for(n=1,1e3,if(isprime(s=sigma(n^2)),print1(n^2-s", "))) \\ _Charles R Greathouse IV_, Feb 19 2013
%Y A071167 Cf. A000203, A006530, A062700, A023194, A071166.
%K A071167 sign
%O A071167 1,2
%A A071167 _Labos Elemer_, May 15 2002