A004646 Powers of 2 written in base 7.
1, 2, 4, 11, 22, 44, 121, 242, 514, 1331, 2662, 5654, 14641, 32612, 65524, 164351, 362032, 1054064, 2141161, 4312352, 11625034, 23553101, 50436202, 131205404, 262414111, 555131222, 1443262444, 3216555221, 6436443442, 16206220214, 35415440431, 104134211162
Offset: 0
Links
- Vincenzo Librandi, Table of n, a(n) for n = 0..1000
Programs
-
Magma
[Seqint(Intseq(2^n, 7)): n in [0..30]]; // G. C. Greubel, Sep 10 2018
-
Mathematica
Table[FromDigits[IntegerDigits[2^n, 7]], {n, 0, 40}] (* Vladimir Joseph Stephan Orlovsky, Feb 17 2012 *)
-
PARI
for(n=0,30, print1(fromdigits(digits(2^n, 7)), ", ")) \\ G. C. Greubel, Sep 10 2018