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
KEYWORD
nonn,base
AUTHOR
John Frye, Aug 04 2011
STATUS
approved