OFFSET
1,2
MATHEMATICA
t = Table[Abs[2^i - 3^j], {i, 1, 30}, {j, 1, 30}];
v = Union[Sort[Flatten[t]]] ; (* A363999 *)
(v - 1)/2; (* this sequence *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Aug 09 2023
STATUS
approved