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 A192134 #17 Apr 11 2025 03:28:30
%S A192134 1,1,2,0,4,6,-4,3,10,12,-16,16,18,22,15,0,28,30,-48,36,40,42,46,35,52,
%T A192134 58,60,-128,66,70,72,78,-27,82,88,96,100,102,106,108,112,99,50,126,
%U A192134 -320,130,136,138,148,150,156,162,166,143,172,178,180,190,192,196
%N A192134 Difference between n-th prime power and its arithmetic derivative.
%H A192134 Reinhard Zumkeller, <a href="/A192134/b192134.txt">Table of n, a(n) for n = 1..10000</a>
%F A192134 a(n) = A000961(n)-A192015(n) = A000961(n)-A003415(A000961(n)) = A192133(n)*A025473(n)^(A025474(n)-1) = A192133(n)*A000961(n)/A025473(n).
%F A192134 a(A095874(A000040(n))) = A006093(n).
%F A192134 a(A095874(A001248(n))) = A005722(n) + 1.
%t A192134 f[n_] := If[n == 1, 1, If[PrimePowerQ[n], {p, e} = FactorInteger[n][[1]]; n - e*p^(e-1), Nothing]]; Array[f, 300] (* _Amiram Eldar_, Apr 11 2025 *)
%o A192134 (Haskell)
%o A192134 a192134 n = a000961 n - a192015 n -- _Reinhard Zumkeller_, Apr 16 2014
%Y A192134 Cf. A000040, A000961, A001248, A003415, A005722, A006093, A025473, A025474, A095874, A192015, A192133.
%K A192134 sign,easy
%O A192134 1,3
%A A192134 _Reinhard Zumkeller_, Jun 26 2011