A329046 - OEIS

%I #7 Nov 08 2019 18:16:40

%S 2,2,2,3,2,3,2,4,4,3,2,5,2,3,7,9,2,9,2,5,7,3,2,8,15,3,4,5,2,12,2,4,7,

%T 3,27,25,2,3,7,4,2,4,2,5,12,3,2,8,28,45,7,5,2,9,15,9,7,3,2,16,2,3,16,

%U 9,28,13,2,5,7,36,2,24,2,3,72,5,51,13,2,9,28,3,2,9,24,3,7,9,2,33,91,5,7,3,16,21,2,117,33,28,2,13,2,9,40

%N a(n) = A000005(A324886(n)).

%H Antti Karttunen, <a href="/A329046/b329046.txt">Table of n, a(n) for n = 1..16384</a>

%H Antti Karttunen, <a href="/A329046/a329046.txt">Data supplement: n, a(n) computed for n = 1..65537</a>

%H <a href="/index/Pri#prime_indices">Index entries for sequences computed from indices in prime factorization</a>

%H <a href="/index/Pri#primorialbase">Index entries for sequences related to primorial base</a>

%H <a href="/index/Pri#primorial_numbers">Index entries for sequences related to primorial numbers</a>

%F a(n) = A000005(A324886(n)) = A000005(A276086(A108951(n))).

%F a(n) = A324655(A108951(n)).

%o (PARI)

%o A034386(n) = prod(i=1, primepi(n), prime(i));

%o A108951(n) = { my(f=factor(n)); prod(i=1, #f~, A034386(f[i, 1])^f[i, 2]) };  \\ From A108951

%o A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); };

%o A324886(n) = A276086(A108951(n));

%o A329046(n) = numdiv(A324886(n));

%Y Cf. A000005, A034386, A064989, A108951, A276086, A324655, A324886, A329045.

%K nonn

%O 1,1

%A _Antti Karttunen_, Nov 08 2019