login
A346096
Numerator of the primorial deflation of A276086(A108951(n)): a(n) = A319626(A324886(n)).
9
2, 3, 5, 9, 7, 25, 11, 5, 7, 49, 13, 625, 17, 121, 117649, 25, 19, 49, 23, 2401, 1771561, 169, 29, 175, 14641, 289, 55, 14641, 31, 26411, 37, 21, 4826809, 361, 299393809, 2401, 41, 529, 24137569, 11, 43, 13, 47, 28561, 161051, 841, 53, 343, 6311981, 214358881, 47045881, 83521, 59, 3025, 48841, 214358881, 148035889, 961
OFFSET
1,1
COMMENTS
Numerator of ratio A324886(n) / A329044(n).
FORMULA
a(n) = A319626(A324886(n)).
a(n) = A324886(n) / A346095(n) = A324886(n) / gcd(A324886(n), A329044(n)).
For n >= 1, A108951(A346096(n)) / A108951(A346097(n)) = A324886(n).
For n > 1, a(n) = A003961(A346098(n)).
PROG
(PARI)
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); };
A319626(n) = (n / gcd(n, A064989(n)));
A346096(n) = A319626(A324886(n)); \\ Rest of program in A324886.
CROSSREFS
Cf. A346097 (denominators).
Cf. also A337376, A345941.
Sequence in context: A123923 A045965 A323390 * A324886 A277332 A342456
KEYWORD
nonn,frac
AUTHOR
Antti Karttunen, Jul 07 2021
STATUS
approved