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 A192016 #18 Apr 11 2025 03:29:39
%S A192016 0,0,0,4,0,0,16,5,0,0,80,0,0,0,7,27,0,0,176,0,0,0,0,9,0,0,0,640,0,0,0,
%T A192016 0,216,0,0,0,0,0,0,0,0,13,55,0,1408,0,0,0,0,0,0,0,0,15,0,0,0,0,0,0,0,
%U A192016 0,0,0,0,0,0,0,621,0,5120,0,0,0,0,0,0,0,19
%N A192016 Second arithmetic derivative of prime powers: a(n) = A068346(A000961(n)).
%H A192016 Reinhard Zumkeller, <a href="/A192016/b192016.txt">Table of n, a(n) for n = 1..10000</a>
%F A192016 a(n) = A003415(A192015(n)).
%F A192016 a(A000040(n)) = 0; a(A002808(n)) > 0.
%t A192016 ad[n_] := n * Plus @@ ((Last[#]/First[#]) & /@ FactorInteger[n]); ad[0] = ad[1] = 0; f[n_] := If[n == 1, 0, If[PrimePowerQ[n], {p, e} = FactorInteger[n][[1]]; e*p^(e-1), Nothing]]; ad /@ Array[f, 300] (* _Amiram Eldar_, Apr 11 2025 *)
%o A192016 (Haskell)
%o A192016 a192016 = a068346 . a000961 -- _Reinhard Zumkeller_, Apr 16 2014
%Y A192016 Cf. A000040. A000961, A002808, A003415, A068346, A192015.
%K A192016 nonn
%O A192016 1,4
%A A192016 _Reinhard Zumkeller_, Jun 26 2011