A332213 Fully multiplicative with a(p) = A332210(A000720(p)).

1, 2, 3, 4, 7, 6, 5, 8, 9, 14, 13, 12, 19, 10, 21, 16, 23, 18, 29, 28, 15, 26, 31, 24, 49, 38, 27, 20, 37, 42, 11, 32, 39, 46, 35, 36, 43, 58, 57, 56, 47, 30, 53, 52, 63, 62, 61, 48, 25, 98, 69, 76, 71, 54, 91, 40, 87, 74, 73, 84, 79, 22, 45, 64, 133, 78, 83, 92, 93, 70, 89, 72, 97, 86, 147, 116, 65, 114, 101, 112, 81, 94, 103, 60, 161, 106, 111

Offset

1,2

Links

Antti Karttunen, Table of n, a(n) for n = 1..86238

Index entries for sequences that are permutations of the natural numbers

Formula

a(1) = 1, a(p^e) = A332210(A000720(p))^e, a(m*n) = a(m)*a(n).

Prog

(PARI)
\\ Needs also code from A332210:
A332213(n) = { my(f=factor(n)); f[, 1] = apply(A332210, apply(primepi, f[, 1])); factorback(f); };

Crossrefs

Cf. A000043, A000668, A000720, A332210, A332212 (inverse permutation), A332215.

Sequence in context: A072028 A269377 A072026 * A235199 A270426 A270425

Adjacent sequences: A332210 A332211 A332212 * A332214 A332215 A332216

Keyword

nonn,mult

Author

Antti Karttunen, Feb 09 2020

Status

approved