A332213 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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); };