In Mathematica. But no kernels found :(

ClearAll["Global`*"]
Manipulate[
num = 10^n - 2;
t = Table[
num = (num // IntegerDigits // Sort // Reverse //
FromDigits)*(10^((n - (num // Log10)) // Floor)) - (num //
IntegerDigits // Sort // FromDigits), {x, 0, 50}] //
ListPlot, {n, 2, 40, 1}]