# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a346107
Showing 1-1 of 1

%I A346107 #7 Jul 08 2021 14:22:47
%S A346107 1,2,6,4,30,36,210,2,6,900,2310,1296,30030,44100,729000000,4,510510,
%T A346107 36,9699690,810000,85766121000000,5336100,223092870,216,39690000,
%U A346107 901800900,1260,1944810000,6469693230,24300000,200560490130,60,151939915084881000000,260620460100,3782285936100000000,1296,7420738134810,94083986096100
%N A346107 a(n) = A108951(A346097(n)), where A346097(n) gives the denominator of the primorial deflation of A276086(A108951(n)).
%H A346107 <a href="/index/Pri#prime_indices">Index entries for sequences computed from indices in prime factorization</a>
%H A346107 <a href="/index/Pri#primorialbase">Index entries for sequences related to primorial base</a>
%H A346107 <a href="/index/Pri#primorial_numbers">Index entries for sequences related to primorial numbers</a>
%F A346107 a(n) = A108951(A346097(n)) = A108951(A319627(A324886(n))).
%F A346107 a(n) = A346106(n) / A324886(n).
%o A346107 (PARI)
%o A346107 A064989(n) = {my(f); 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 A346107 A319627(n) = (A064989(n) / gcd(n, A064989(n)));
%o A346107 A346097(n) = A319627(A324886(n));
%o A346107 A346107(n) = A108951(A346097(n)); \\ Rest of program given in A324886.
%Y A346107 Cf. A064989, A108951, A276086, A319627, A324886, A346097, A346106, A346109.
%K A346107 nonn
%O A346107 1,2
%A A346107 _Antti Karttunen_, Jul 08 2021

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE