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,3

Links

Harry J. Smith, Table of n, a(n) for n = 0..200

Formula

a(n) = 2^(ceiling(log_2(3^n))) - 3^n.

Mathematica

Table[2^Ceiling@ Log2@ # - # &[3^n], {n, 0, 26}]  (* Michael De Vlieger, Sep 30 2017 *)

Prog

(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

Crossrefs

Cf. A056577, A063004, A063005.

Sequence in context: A163742 A202130 A089244 * A038271 A329008 A005692

Adjacent sequences: A063000 A063001 A063002 * A063004 A063005 A063006

Keyword

easy,nonn

Author

Jens Voß, Jul 02 2001

Extensions

More terms from Marc LeBrun, Jul 11 2001

Status

approved