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 A045745 #15 Dec 25 2016 02:35:09
%S A045745 1,2,3,4,5,6,7,11,13,14,16,17,18,19,23,24,25,28,29,31,33,36,37,41,43,
%T A045745 47,51,53,54,59,61,66,67,71,73,79,83,89,91,97,101,103,107,109,112,113,
%U A045745 123,127,131,135,137,139,149,151,157,163,167,172,173,179,181,191,193
%N A045745 Numbers n such that sum of proper divisors s(n) is a triangular number T(k).
%H A045745 Robert Israel, <a href="/A045745/b045745.txt">Table of n, a(n) for n = 1..10000</a>
%e A045745 s(14)=1+2+7=10 is a triangular number. In fact T(4)=10.
%p A045745 select(t -> issqr(1+8*(numtheory:-sigma(t)-t)), [$1..1000]); # _Robert Israel_, Dec 25 2016
%t A045745 tri[ n_ ] := Module[ {}, a=Floor[ N[ Sqrt[ 2n ] ] ]; a(a+1)/2==n ]; Select[ Range[ 300 ], tri[ Apply[ Plus, Divisors[ # ] ]-# ]& ]
%Y A045745 Cf. A000217.
%K A045745 nonn,easy
%O A045745 1,2
%A A045745 _Felice Russo_
%E A045745 More terms from _Erich Friedman_