|
%I #12 Apr 09 2021 09:21:55
%S 1,1,1,2,1,2,1,8,12,2,1,4,1,2,6,16,1,24,1,4,6,2,1,26,50,2,16,4,1,62,1,
%T 10,6,2,126,48,1,2,6,18,1,24,1,4,46,2,1,22,1486,100,6,4,1,32,94,8,6,2,
%U 1,54,1,2,72,20,264,12,1,4,6,120,1,376,1,2,1142,4,242,12,1,36,342,2,1,48,272,2,6,8,1,92,318
%N a(n) = A342002(A108951(n)).
%H Antti Karttunen, <a href="/A342920/b342920.txt">Table of n, a(n) for n = 1..8192</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) = A342002(A108951(n)) = A327860(A108951(n)) / A328572(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]) };
%o A342920(n) = A342002(A108951(n)); \\ Needs also code from A342002.
%Y Cf. A108951, A324886, A327860, A328572, A342002, A342463.
%K nonn
%O 1,4
%A _Antti Karttunen_, Apr 06 2021
|
