OFFSET
0,2
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
KEYWORD
nonn,base
AUTHOR
STATUS
approved