%I #8 May 31 2024 14:32:43
%S 2,4,6,7,9,11,12,14,16,18,19,21,23,24,26,28,30,31,33,35,36,38,40,42,
%T 43,45,47,48,50,52,53,55,57,59,60,62,64,65,67,69,71,72,74,76,77,79,81,
%U 83,84,86,88,89,91,93,95,96,98,100,101,103,105,106,108,110
%N Numbers m such that v^n - u^m < u^(m+1) - v^n, where u=2, v=3, and u^m < v^n < u^(m+1).
%e The condition u^m < v^n < u^(m + 1) implies m = floor (n*log(v)/log(u)). With u=2 and v=3, for n = 1, we have m = 1 and 3 - 2 >= 4 - 3, so 1 is in A372780. For n = 2, we have m = 3 and 9 - 8 < 16 - 9, so 2 is in this sequence.
%t z = 200; {u, v} = {2, 3};
%t m[n_] := Floor[n*Log[v]/Log[u]];
%t Table[m[n], {n, 0, z}];
%t s = Select[Range[z], v^# - u^m[#] < u^(m[#] + 1) - v^# &] (* this sequence *)
%t Complement[Range[Max[s]], s] (* A372780 *)
%Y Cf. A000079, A000244, A056576, A372780 (complement).
%K nonn
%O 1,1
%A _Clark Kimberling_, May 18 2024