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}]

## Here's up to 40

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}]