|
%I #10 Apr 03 2022 13:53:51
%S 0,1,1,1,1,2,1,1,1,2,1,5,1,2,2,1,1,5,1,5,2,2,1,7,1,2,1,5,1,4,1,1,2,2,
%T 2,3,1,2,2,7,1,4,1,5,5,2,1,9,1,5,2,5,1,7,2,7,2,2,1,10,1,2,5,1,2,4,1,5,
%U 2,4,1,8,1,2,5,5,2,4,1,9,1,2,1,10,2,2,2,7,1,10,2,5,2,2,2,13,1,5,5,3,1,4,1,7,4
%N a(n) = A069359(A181819(n)).
%H Antti Karttunen, <a href="/A351943/b351943.txt">Table of n, a(n) for n = 1..20000</a>
%H <a href="/index/Eu#epf">Index entries for sequences computed from exponents in factorization of n</a>
%o (PARI)
%o A069359(n) = (n*sumdiv(n, d, isprime(d)/d)); \\ From A069359
%o A181819(n) = factorback(apply(e->prime(e),(factor(n)[,2])));
%o A351943(n) = A069359(A181819(n));
%Y Cf. A069359, A181819.
%Y Coincides with A351942 on the positions given by A130091.
%K nonn
%O 1,6
%A _Antti Karttunen_, Apr 02 2022
|
