A004658 Powers of 3 written in base 4.
1, 3, 21, 123, 1101, 3303, 23121, 202023, 1212201, 10303203, 32122221, 223033323, 2001233301, 12011033103, 102033231321, 312233021223, 2210031131001, 13230220113003, 113011321011021, 1011101223033123
Offset: 0
Links
- Vincenzo Librandi, Table of n, a(n) for n = 0..1000
Crossrefs
Programs
-
Magma
[Seqint(Intseq(3^n, 4)): n in [0..30]]; // G. C. Greubel, Sep 10 2018
-
Mathematica
Table[FromDigits[IntegerDigits[3^n, 4]], {n, 0, 40}] (* Vincenzo Librandi, Jun 07 2013 *)
-
PARI
a(n,b=4,m=3)=fromdigits(digits(m^n,b)) \\ M. F. Hasler, Jun 22 2018