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 A192133 #15 May 16 2025 07:32:22
%S A192133 1,1,2,0,4,6,-1,1,10,12,-2,16,18,22,3,0,28,30,-3,36,40,42,46,5,52,58,
%T A192133 60,-4,66,70,72,78,-1,82,88,96,100,102,106,108,112,9,2,126,-5,130,136,
%U A192133 138,148,150,156,162,166,11,172,178,180,190,192,196,198,210
%N A192133 Difference of base and exponent of prime powers (cf. A000961).
%C A192133 a(1) = 1 by convention, in accordance with A025473(1) = 1 and A025474(1) = 0.
%H A192133 Reinhard Zumkeller, <a href="/A192133/b192133.txt">Table of n, a(n) for n = 1..10000</a>
%F A192133 a(n) = A025473(n)-A025474(n) = A192134(n)*A025473(n)/A000961(n).
%t A192133 s[n_] := Module[{f = FactorInteger[n]}, If[Length[f] == 1, f[[1, 1]] - f[[1, 2]], Nothing]]; s[1] = 1; Array[s, 250] (* _Amiram Eldar_, May 16 2025 *)
%Y A192133 A006093 and A090076 are subsequences.
%Y A192133 Cf. A000961, A025473, A025474, A192134.
%K A192133 sign
%O A192133 1,3
%A A192133 _Reinhard Zumkeller_, Jun 26 2011