A063004 Difference between 2^n and the next larger or equal power of 3.
0, 1, 5, 1, 11, 49, 17, 115, 473, 217, 1163, 139, 2465, 11491, 3299, 26281, 111611, 46075, 269297, 7153, 545747, 2685817, 588665, 5960299, 26269505, 9492289, 62031299, 253202761, 118985033, 625390555, 88519643, 1339300753
Offset: 0
Programs
-
Mathematica
dp23[n_]:=Module[{t=2^n},3^Ceiling[Log[3,t]]-t]; Array[dp23,40,0] (* Harvey P. Dale, Nov 20 2015 *) -
PARI
for(n=1,50,print1(3^ceil(log(2^n)/log(3))-2^n","))
Formula
a(n) = 3^ceiling(log_3(2^n)) - 2^n.
Extensions
More terms from Ralf Stephan, Mar 21 2003