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