A331173 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

A331173

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

3

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

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

OFFSET

0,3

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

PROG

(PARI)

A030102(n) = { my(r=[n%3]); while(0<n\=3, r=concat(n%3, r)); subst(Polrev(r), x, 3); } \\ After code in A030102.

A263273 = n -> if(!n, n, A030102(n/(3^valuation(n, 3))) * (3^valuation(n, 3)));

A331173(n) = min(n, A263273(n));

CROSSREFS

Cf. A007949, A030102, A263273, A290094.

Cf. also A330740, A331166.

Sequence in context: A063283 A228732 A355810 * A307089 A239132 A307311

Adjacent sequences: A331170 A331171 A331172 * A331174 A331175 A331176

KEYWORD

nonn,base

AUTHOR

Antti Karttunen, Jan 12 2020

STATUS

approved