A353576 Arithmetic derivative applied to the prime shadow of the primorial base exp-function: a(n) = A003415(A181819(A276086(n))).
0, 1, 1, 4, 1, 5, 1, 4, 4, 12, 5, 16, 1, 5, 5, 16, 6, 21, 1, 7, 7, 24, 8, 31, 1, 9, 9, 32, 10, 41, 1, 4, 4, 12, 5, 16, 4, 12, 12, 32, 16, 44, 5, 16, 16, 44, 21, 60, 7, 24, 24, 68, 31, 92, 9, 32, 32, 92, 41, 124, 1, 5, 5, 16, 6, 21, 5, 16, 16, 44, 21, 60, 6, 21, 21, 60, 27, 81, 8, 31, 31, 92, 39, 123, 10, 41, 41, 124
Offset: 0
Links
Crossrefs
Programs
-
PARI
A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1])); A181819(n) = factorback(apply(e->prime(e),(factor(n)[,2]))); A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); }; A351942(n) = A003415(A181819(n)); A353576(n) = A351942(A276086(n));