cp's OEIS Frontend

A329046 a(n) = A000005(A324886(n)).

%I A329046 #7 Nov 08 2019 18:16:40
%S A329046 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 A329046 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 A329046 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 A329046 a(n) = A000005(A324886(n)).
%H A329046 Antti Karttunen, <a href="/A329046/b329046.txt">Table of n, a(n) for n = 1..16384</a>
%H A329046 Antti Karttunen, <a href="/A329046/a329046.txt">Data supplement: n, a(n) computed for n = 1..65537</a>
%H A329046 <a href="/index/Pri#prime_indices">Index entries for sequences computed from indices in prime factorization</a>
%H A329046 <a href="/index/Pri#primorialbase">Index entries for sequences related to primorial base</a>
%H A329046 <a href="/index/Pri#primorial_numbers">Index entries for sequences related to primorial numbers</a>
%F A329046 a(n) = A000005(A324886(n)) = A000005(A276086(A108951(n))).
%F A329046 a(n) = A324655(A108951(n)).
%o A329046 (PARI)
%o A329046 A034386(n) = prod(i=1, primepi(n), prime(i));
%o A329046 A108951(n) = { my(f=factor(n)); prod(i=1, #f~, A034386(f[i, 1])^f[i, 2]) };  \\ From A108951
%o A329046 A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); };
%o A329046 A324886(n) = A276086(A108951(n));
%o A329046 A329046(n) = numdiv(A324886(n));
%Y A329046 Cf. A000005, A034386, A064989, A108951, A276086, A324655, A324886, A329045.
%K A329046 nonn
%O A329046 1,1
%A A329046 _Antti Karttunen_, Nov 08 2019