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

Author

Antti Karttunen, Feb 09 2020

Keywords

• nonn
• mult

Links

• Antti Karttunen, Table of n, a(n) for n = 1..86238
• Index entries for sequences that are permutations of the natural numbers

Crossrefs

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

Programs

PARI

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

Formula

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