A331170 a(n) = min(n, A122111(n)), where A122111 conjugates the prime factorization of n.

1, 2, 3, 3, 5, 6, 7, 5, 9, 10, 11, 10, 13, 14, 15, 7, 17, 15, 19, 20, 21, 22, 23, 14, 25, 26, 25, 28, 29, 30, 31, 11, 33, 34, 35, 21, 37, 38, 39, 28, 41, 42, 43, 44, 45, 46, 47, 22, 49, 45, 51, 52, 53, 35, 55, 56, 57, 58, 59, 42, 61, 62, 63, 13, 65, 66, 67, 68, 69, 70, 71, 33, 73, 74, 75, 76, 77, 78, 79, 44, 49, 82, 83, 84, 85, 86, 87, 88, 89, 70, 91, 92, 93, 94, 95, 26, 97, 98, 99, 63

Offset

1,2

Comments

For all i, j:

a(i) = a(j) => A056239(i) = A056239(j),

a(i) = a(j) => A243503(i) = A243503(j).

Links

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

Index entries for sequences computed from indices in prime factorization

Prog

(PARI)
A064989(n) = {my(f); f = factor(n); if((n>1 && f[1, 1]==2), f[1, 2] = 0); for (i=1, #f~, f[i, 1] = precprime(f[i, 1]-1)); factorback(f)};
A122111(n) = if(1==n, n, prime(bigomega(n))*A122111(A064989(n)));
A331170(n) = min(n, A122111(n));

Crossrefs

Cf. A056239, A064989, A122111, A243503.

Sequence in context: A055653 A155918 A344705 * A325183 A343247 A097248

Adjacent sequences: A331167 A331168 A331169 * A331171 A331172 A331173

Keyword

nonn

Author

Antti Karttunen, Jan 12 2020

Status

approved