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 A157104 #10 May 05 2017 10:56:38
%S A157104 0,1,1,4,1,5,1,6,7,1,16,1,9,8,1,21,1,24,10,13,1,10,15,32,1,31,1,14,19,
%T A157104 12,60,1,21,16,1,41,1,48,39,25,1,14,45,20,56,1,16,22,31,1,92,1,33,51,
%U A157104 18,61,1,72,26,59,1,1,39,55,80,18,71,1,43,1,124,22,45,32,1,123,20,96,34,49
%N A157104 Arithmetic derivative of cubefree numbers.
%C A157104 a(n) = A003415(A004709(n)).
%H A157104 Reinhard Zumkeller, <a href="/A157104/b157104.txt">Table of n, a(n) for n = 1..10000</a>
%t A157104 Reap[Do[f = FactorInteger[n]; If[n == 1, Sow[0], If[And @@ (# <= 2 & ) /@ f[[All, 2]], Sow[Total[n*(f[[All, 2]]/f[[All, 1]])]]]], {n, 1, 100}]][[2, 1]] (* _Jean-François Alcover_, May 16 2013 *)
%o A157104 (Haskell)
%o A157104 a157104 = a003415 . a004709 -- _Reinhard Zumkeller_, May 24 2013
%Y A157104 Cf. A068328, A068720.
%K A157104 nonn
%O A157104 1,4
%A A157104 _Reinhard Zumkeller_, Feb 23 2009