login
A193760
Replace 3^i with n^i in ternary representation of n.
1
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
OFFSET
1,2
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
(Sage) def A193760(n): return sum(d*n**i for i, d in enumerate(n.digits(base=3))) # D. S. McNeil, Aug 05 2011
CROSSREFS
Cf. A104258 for the sequence formed by the binary rather than ternary numbers.
Sequence in context: A179781 A309370 A022438 * A113623 A308868 A361459
KEYWORD
nonn,base
AUTHOR
John Frye, Aug 04 2011
STATUS
approved