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 A192083 #19 Apr 06 2025 08:45:55 %S A192083 0,4,6,32,10,14,192,108,22,26,1024,34,38,46,500,1458,58,62,5120,74,82, %T A192083 86,94,1372,106,118,122,24576,134,142,146,158,17496,166,178,194,202, %U A192083 206,214,218,226,5324,18750,254,114688,262,274,278,298,302,314,326,334 %N A192083 Arithmetic derivative of squares of prime powers: a(n) = A003415(A056798(n)). %C A192083 A001787 and A024622 give record values and where they occur. %H A192083 Reinhard Zumkeller, <a href="/A192083/b192083.txt">Table of n, a(n) for n = 1..10000</a> %F A192083 a(n) = 2 * A025474(n) * A025473(n)^(2*A025474(n) - 1). %F A192083 A192084(n) = A003415(a(n)). %t A192083 s[n_] := If[PrimePowerQ[n], f = FactorInteger[n][[1]]; 2*f[[2]]*n^(2 - 1/f[[2]]), Nothing]; s[1] = 0; Array[s, 200] (* _Amiram Eldar_, Apr 06 2025 *) %Y A192083 Cf. A003415, A024622, A025473, A025474, A056798, A192084. %Y A192083 Subsequences: A001787, A027471, A051674, A079705, A100484. %K A192083 nonn %O A192083 1,2 %A A192083 _Reinhard Zumkeller_, Jun 26 2011