A063003 Difference between 3^n and the next larger or equal power of 2.
0, 1, 7, 5, 47, 13, 295, 1909, 1631, 13085, 6487, 84997, 517135, 502829, 3605639, 2428309, 24062143, 5077565, 149450423, 985222181, 808182895, 6719515981, 2978678759, 43295774645, 267326277407, 252223018333, 1856180682775
Offset: 0
Links
- Harry J. Smith, Table of n, a(n) for n = 0..200
Programs
-
Mathematica
Table[2^Ceiling@ Log2@ # - # &[3^n], {n, 0, 26}] (* Michael De Vlieger, Sep 30 2017 *) -
PARI
{ default(realprecision, 50); t=1/log(2); for (n=0, 200, write("b063003.txt", n, " ", 2^ceil(t*log(3^n)) - 3^n) ) } \\ Harry J. Smith, Aug 15 2009
Formula
a(n) = 2^(ceiling(log_2(3^n))) - 3^n.
Extensions
More terms from Marc LeBrun, Jul 11 2001