A193760 - OEIS

A193760

Replace 3^i with n^i in ternary representation of n.

1, 2, 3, 5, 7, 12, 15, 18, 81, 101, 123, 156, 183, 212, 255, 289, 325, 648, 723, 802, 903, 991, 1083, 1200, 1301, 1406, 19683, 21953, 24391, 27030, 29823, 32802, 36003, 39373, 42947, 47952, 52023, 56318, 60879, 65641, 70645, 75936, 81443, 87210, 95175, 101569, 108243, 115248

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

OFFSET

1,2

LINKS

Andrew Howroyd, Table of n, a(n) for n = 1..10000

MAPLE

A193760 := proc(n) nb3 := convert(n, base, 3) ; add(op(i, nb3)*n^(i-1), i=1..nops(nb3)) ; end proc: seq(A193760(n), n=1..40) ; # R. J. Mathar, Aug 05 2011

PROG

(SageMath) def A193760(n): return sum(d*n**i for i, d in enumerate(n.digits(base=3))) # D. S. McNeil, Aug 05 2011

(PARI) a(n)=if(n==1, 1, fromdigits(digits(n, 3), n)) \\ Andrew Howroyd, Nov 07 2025

CROSSREFS

Cf. A104258 for the sequence formed by the binary rather than ternary numbers.

Sequence in context: A179781 A309370 A022438 * A113623 A308868 A361459

Adjacent sequences: A193757 A193758 A193759 * A193761 A193762 A193763

KEYWORD

nonn,base

AUTHOR

John Frye, Aug 04 2011

EXTENSIONS

a(33) onward from Andrew Howroyd, Nov 07 2025

STATUS

approved