%I #11 Apr 16 2023 15:55:41

%S 0,1,5,1,11,49,17,115,473,217,1163,139,2465,11491,3299,26281,111611,

%T 46075,269297,7153,545747,2685817,588665,5960299,26269505,9492289,

%U 62031299,253202761,118985033,625390555,88519643,1339300753

%N Difference between 2^n and the next larger or equal power of 3.

%F a(n) = 3^ceiling(log_3(2^n)) - 2^n.

%t dp23[n_]:=Module[{t=2^n},3^Ceiling[Log[3,t]]-t]; Array[dp23,40,0] (* _Harvey P. Dale_, Nov 20 2015 *)

%o (PARI) for(n=1,50,print1(3^ceil(log(2^n)/log(3))-2^n","))

%Y Cf. A056577, A063003, A063005.

%K easy,nonn

%O 0,3

%A _Jens Voß_, Jul 02 2001

%E More terms from _Ralf Stephan_, Mar 21 2003