A331173 a(n) = min(n, A263273(n)), where A263273 is bijective base-3 reverse.

0, 1, 2, 3, 4, 5, 6, 5, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 11, 20, 15, 14, 23, 24, 17, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 31, 38, 39, 40, 41, 42, 43, 44, 45, 34, 47, 48, 43, 50, 51, 52, 53, 54, 29, 56, 33, 38, 59, 60, 47, 62, 45, 32, 59, 42, 41, 68, 69, 50, 71, 72, 35, 62, 51, 44, 71, 78, 53, 80, 81

Offset: 0

Author

Antti Karttunen, Jan 12 2020

Keywords

• nonn
• base

Comments

For all i, j:

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

For all i, j > 0:

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

Links

• Antti Karttunen, Table of n, a(n) for n = 0..59048

Crossrefs

Cf. A007949, A030102, A263273, A290094.

Cf. also A330740, A331166.

Programs

PARI

A030102(n) = { my(r=[n%3]); while(0A030102.
A263273 = n -> if(!n,n,A030102(n/(3^valuation(n,3))) * (3^valuation(n, 3)));
A331173(n) = min(n, A263273(n));