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 A351942 #15 Apr 03 2022 15:54:04
%S A351942 0,1,1,1,1,4,1,1,1,4,1,5,1,4,4,1,1,5,1,5,4,4,1,7,1,4,1,5,1,12,1,1,4,4,
%T A351942 4,6,1,4,4,7,1,12,1,5,5,4,1,9,1,5,4,5,1,7,4,7,4,4,1,16,1,4,5,1,4,12,1,
%U A351942 5,4,12,1,8,1,4,5,5,4,12,1,9,1,4,1,16,4,4,4,7,1,16,4,5,4,4,4,13,1,5,5,6,1,12
%N A351942 Arithmetic derivative of A181819(n), where A181819(n) = Product prime(e(i)) when n = Product prime(i)^e(i).
%H A351942 Antti Karttunen, <a href="/A351942/b351942.txt">Table of n, a(n) for n = 1..20000</a>
%H A351942 <a href="/index/Eu#epf">Index entries for sequences computed from exponents in factorization of n</a>
%F A351942 a(n) = A003415(A181819(n)).
%F A351942 a(n) = A351944(n) * A351945(n).
%t A351942 {0}~Join~Array[If[# < 2, 0, # Total[#2/#1 & @@@ FactorInteger[#]]] &[Apply[Times, Prime[FactorInteger[#][[All, -1]]]]] &, 101, 2] (* _Michael De Vlieger_, Apr 03 2022 *)
%o A351942 (PARI)
%o A351942 A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1]));
%o A351942 A181819(n) = factorback(apply(e->prime(e),(factor(n)[,2])));
%o A351942 A351942(n) = A003415(A181819(n));
%Y A351942 Cf. A003415, A181819, A351944, A351945.
%Y A351942 Coincides with A351943 on the positions given by A130091.
%K A351942 nonn
%O A351942 1,6
%A A351942 _Antti Karttunen_, Apr 02 2022