A004667 Powers of 3 written in base 13. (Next term contains a non-decimal digit.)

1, 3, 9, 21, 63, 159, 441

Offset

0,2

Links

Table of n, a(n) for n=0..6.

Mathematica

FromDigits[IntegerDigits[#, 13]]&/@(3^Range[0, 6]) (* Harvey P. Dale, Mar 05 2018 *)

Prog

(PARI) apply( a(n, b=13, m=3)=fromdigits(digits(m^n, b)), [0..6]) \\ This implements one possible continuation of the sequence beyond n = 6: write digits in decimal and carry over (so CC4 -> 12*100 + 12*10 + 4 = 1324). - M. F. Hasler, Jun 22 2018

Crossrefs

Cf. A000079, A004643, ..., A004655: powers of 2 written in base 10, 4, 5, ..., 16.

Cf. A000244, A004656, A004658, A004659, ..., A004668: powers of 3 in base 10, 2, 4, 5, ..., 26.

Sequence in context: A260185 A307105 A239663 * A237122 A326313 A073947

Adjacent sequences: A004664 A004665 A004666 * A004668 A004669 A004670

Keyword

nonn,base

Author

N. J. A. Sloane

Status

approved