login
A332212
Fully multiplicative with a(p) = A332211(A000720(p)).
6
1, 2, 3, 4, 7, 6, 5, 8, 9, 14, 31, 12, 11, 10, 21, 16, 127, 18, 13, 28, 15, 62, 17, 24, 49, 22, 27, 20, 19, 42, 23, 32, 93, 254, 35, 36, 29, 26, 33, 56, 8191, 30, 37, 124, 63, 34, 41, 48, 25, 98, 381, 44, 43, 54, 217, 40, 39, 38, 131071, 84, 47, 46, 45, 64, 77, 186, 524287, 508, 51, 70, 53, 72, 59, 58, 147, 52, 155, 66, 61, 112, 81, 16382, 67, 60
OFFSET
1,2
FORMULA
a(1) = 1, a(p^e) = A332211(A000720(p))^e, a(m*n) = a(m)*a(n).
PROG
(PARI)
\\ Needs also code from A332211:
A332212(n) = { my(f=factor(n)); f[, 1] = apply(A332211, apply(primepi, f[, 1])); factorback(f); };
CROSSREFS
Cf. A000043, A000668, A000720, A332211, A332213 (inverse permutation), A332214.
Sequence in context: A235199 A270426 A270425 * A085161 A085162 A182178
KEYWORD
nonn,mult
AUTHOR
Antti Karttunen, Feb 09 2020
STATUS
approved