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 A099738 #8 Jul 29 2015 00:52:54
%S A099738 2,5,10,15,24,30,43,52,66,78,99,107,132,150,171,188,221,236,273,291,
%T A099738 322,352,397,409,453,489,530,558,615,633,694,727,778,826,883,900,973,
%U A099738 1027,1088,1118,1199,1229,1314,1362,1419,1485,1578,1598,1688,1745,1826,1884
%N A099738 a(n) = 2*Sum_{k=1..n} (n+1-k) (Sum_{j|k} 1/floor(n/j)).
%C A099738 Sequence consists entirely of integers.
%C A099738 First differences give A033885.
%t A099738 f[n_] := 2Sum[(n + 1 - k)*Plus @@ (1/Floor[n/Divisors[k]]), {k, n}]; Table[ f[n], {n, 52}] (* _Robert G. Wilson v_, Nov 12 2004 *)
%K A099738 nonn
%O A099738 1,1
%A A099738 _Leroy Quet_, Nov 09 2004
%E A099738 More terms from _Robert G. Wilson v_, Nov 12 2004