OFFSET
1,2
COMMENTS
a(1)..a(28) verified for k < 2*10^5. For there to be other values that should be inserted into the Data would require log_2(3) to have some extremely good rational approximations, which seems extremely unlikely but hasn't been ruled out completely. - Robert Israel, Jan 04 2017
EXAMPLE
From Robert Israel, Jan 04 2017: (Start)
ceiling(log_2(3^1)) = 2 and 2^2 - 3^1 = 1.
ceiling(log_2(3^2)) = 4 and 2^4 - 3^2 = 7.
ceiling(log_2(3^3)) = 5 and 2^5 - 3^3 = 5.
ceiling(log_2(3^4)) = 7 and 2^7 - 3^4 = 47.
ceiling(log_2(3^5)) = 8 and 2^8 - 3^5 = 13.
These are the first 5 values, so the list starts 1,5,7,13,47. (End)
MAPLE
Res:= NULL:
for m from 1 to 2*10^5 do
n:= ilog2(3^m)+1;
x:= 2^n - 3^m;
if x <= 10^13 then Res:= Res, x fi;
od:
sort([Res]); # Robert Israel, Jan 04 2017
MATHEMATICA
Delete[Union[Flatten[Table[Table[If [ (2^n > 3^m) && Floor[2^n/3^m] < 2, Abs[2^n - 3^m], 0], {m, 1, n}], {n, 1, 100}], 1]], 1]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Mar 01 2005
EXTENSIONS
a(27) and a(28), and name changed by Robert Israel, Jan 04 2017
STATUS
approved