A346098 a(n) = A064989(A346096(n)) = A064989(A319626(A324886(n))).

1, 2, 3, 4, 5, 9, 7, 3, 5, 25, 11, 81, 13, 49, 15625, 9, 17, 25, 19, 625, 117649, 121, 23, 45, 2401, 169, 21, 2401, 29, 4375, 31, 10, 1771561, 289, 14235529, 625, 37, 361, 4826809, 7, 41, 11, 43, 14641, 16807, 529, 47, 125, 2093663, 5764801, 24137569, 28561, 53, 441, 20449, 5764801, 47045881, 841, 59, 343, 61, 961, 1331, 100, 396067447082177

Offset

1,2

Links

Table of n, a(n) for n=1..65.

Index entries for sequences computed from indices in prime factorization

Index entries for sequences related to primorial base

Index entries for sequences related to primorial numbers

Formula

a(n) = A064989(A346096(n)) = A064989(A319626(A324886(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)));
A346098(n) = A064989(A319626(A324886(n))); \\ Rest of program given in A324886.

Crossrefs

Cf. A064989, A319626, A324886, A346095, A346096, A346097, A346099 [= gcd(n, a(n))].

Sequence in context: A048623 A262692 A346097 * A245821 A075161 A298268

Adjacent sequences: A346095 A346096 A346097 * A346099 A346100 A346101

Keyword

nonn

Author

Antti Karttunen, Jul 07 2021

Status

approved