cp's OEIS Frontend

A346096 Numerator of the primorial deflation of A276086(A108951(n)): a(n) = A319626(A324886(n)).

%I A346096 #17 Jul 08 2021 14:22:29
%S A346096 2,3,5,9,7,25,11,5,7,49,13,625,17,121,117649,25,19,49,23,2401,1771561,
%T A346096 169,29,175,14641,289,55,14641,31,26411,37,21,4826809,361,299393809,
%U A346096 2401,41,529,24137569,11,43,13,47,28561,161051,841,53,343,6311981,214358881,47045881,83521,59,3025,48841,214358881,148035889,961
%N A346096 Numerator of the primorial deflation of A276086(A108951(n)): a(n) = A319626(A324886(n)).
%C A346096 Numerator of ratio A324886(n) / A329044(n).
%H A346096 <a href="/index/Pri#prime_indices">Index entries for sequences computed from indices in prime factorization</a>
%H A346096 <a href="/index/Pri#primorialbase">Index entries for sequences related to primorial base</a>
%H A346096 <a href="/index/Pri#primorial_numbers">Index entries for sequences related to primorial numbers</a>
%F A346096 a(n) = A319626(A324886(n)).
%F A346096 a(n) = A324886(n) / A346095(n) = A324886(n) / gcd(A324886(n), A329044(n)).
%F A346096 For n >= 1, A108951(A346096(n)) / A108951(A346097(n)) = A324886(n).
%F A346096 For n > 1, a(n) = A003961(A346098(n)).
%o A346096 (PARI)
%o A346096 A064989(n) = { my(f = factor(n)); if((n>1 && f[1,1]==2), f[1,2] = 0); for (i=1, #f~, f[i,1] = precprime(f[i,1]-1)); factorback(f); };
%o A346096 A319626(n) = (n / gcd(n, A064989(n)));
%o A346096 A346096(n) = A319626(A324886(n)); \\ Rest of program in A324886.
%Y A346096 Cf. A346097 (denominators).
%Y A346096 Cf. A003961, A108951, A319626, A324886, A329044, A346095, A346098, A346106, A346108.
%Y A346096 Cf. also A337376, A345941.
%K A346096 nonn,frac
%O A346096 1,1
%A A346096 _Antti Karttunen_, Jul 07 2021