A346470 a(n) = psi(A276086(n)), where psi is Dedekind psi function A001615, and A276086 is the prime product form of primorial base expansion of n.
1, 3, 4, 12, 12, 36, 6, 18, 24, 72, 72, 216, 30, 90, 120, 360, 360, 1080, 150, 450, 600, 1800, 1800, 5400, 750, 2250, 3000, 9000, 9000, 27000, 8, 24, 32, 96, 96, 288, 48, 144, 192, 576, 576, 1728, 240, 720, 960, 2880, 2880, 8640, 1200, 3600, 4800, 14400, 14400, 43200, 6000, 18000, 24000, 72000, 72000, 216000, 56, 168, 224, 672
Offset: 0
Links
Crossrefs
Programs
-
PARI
A346470(n) = { my(m=1, p=2, e); while(n, e = (n%p); if(e, m *= (p+1)*(p^(e-1))); n = n\p; p = nextprime(1+p)); (m); };