Add new comment

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

About text formats

Filtered HTML

  • Web page addresses and email addresses turn into links automatically.
  • Allowed HTML tags: <a href hreflang> <em> <strong> <cite> <code> <ul type> <ol start type> <li> <dl> <dt> <dd>
  • Lines and paragraphs break automatically.