login
A353330
a(n) = A006047(A156552(n)).
2
1, 2, 3, 2, 4, 6, 9, 6, 3, 2, 12, 6, 12, 18, 4, 6, 12, 8, 36, 6, 3, 6, 16, 18, 4, 18, 12, 18, 81, 6, 144, 8, 12, 24, 9, 2, 324, 24, 12, 8, 432, 8, 108, 24, 12, 6, 576, 18, 9, 18, 48, 72, 11664, 6, 4, 54, 12, 216, 972, 24, 3888, 162, 12, 6, 36, 18, 1728, 24, 12, 24, 8748, 6, 5184, 648, 27, 18, 16, 72, 34992, 54, 4, 72
OFFSET
1,2
FORMULA
a(n) = A006047(A156552(n)).
PROG
(PARI)
A006047(n) = { my(m=1, d); while(n, d = (n%3); m *= (1+d); n = (n-d)/3); m; };
A156552(n) = { my(f = factor(n), p, p2 = 1, res = 0); for(i = 1, #f~, p = 1 << (primepi(f[i, 1]) - 1); res += (p * p2 * (2^(f[i, 2]) - 1)); p2 <<= f[i, 2]); res };
CROSSREFS
Cf. also A329903, A332814, A341353 and A353360.
Sequence in context: A079159 A192298 A341098 * A254967 A229012 A207606
KEYWORD
nonn,look
AUTHOR
Antti Karttunen, Apr 20 2022
STATUS
approved