OFFSET
1,1
EXAMPLE
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.
MATHEMATICA
z = 200; {u, v} = {2, 3};
m[n_] := Floor[n*Log[v]/Log[u]];
Table[m[n], {n, 0, z}];
s = Select[Range[z], v^# - u^m[#] < u^(m[#] + 1) - v^# &] (* this sequence *)
Complement[Range[Max[s]], s] (* A372780 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, May 18 2024
STATUS
approved