|
%I #10 Oct 16 2021 20:36:46
%S 1,2,3,512,5,46656,7,35184372088832,1594323,100000000,11,
%T 2208245755649745670373376,13,289254654976,38443359375,
%U 11972621413014756705924586149611790497021399392059392,17,5689644950987917544474214347285987328,19
%N a(n) = Product_{d|n} d^(d'), where ' is the arithmetic derivative.
%F a(p) = p for primes p since we have a(p) = 1^1' * p^p' = 1^0 * p^1 = p.
%e a(4) = 512; a(4) = Product_{d|4} d^d' = 1^1' * 2^2' * 4^4' = 1^0 * 2^1 * 4^4 = 1 * 2 * 256 = 512.
%t Array[Times @@ Map[#^If[# < 2, 0, # Total[#2/#1 & @@@ FactorInteger[#]]] &, Divisors[#]] &, 19] (* _Michael De Vlieger_, Oct 14 2021 *)
%Y Cf. A003415.
%K nonn
%O 1,2
%A _Wesley Ivan Hurt_, Oct 14 2021
|
