Wolfram Function Repository
Instantuse addon functions for the Wolfram Language
Function Repository Resource:
Iterate through integer names until an integer equal to its string length is reached
ResourceFunction["MagicInteger"][n] returns a string describing the integer n, then the StringLength of n, etc., until the "magic" integer 4 is reached. 
4 is magic:
In[1]:= 

Out[1]= 

"One" has three letters, etc., up until the magic number 4:
In[2]:= 

Out[2]= 

Find all of the magic numbers below 1000:
In[3]:= 

Out[3]= 

Inputs less than 1 can't be magic since every number has more than 0 characters in its name:
In[4]:= 

Out[4]= 

In[5]:= 

Out[5]= 

Find the smallest input under 1000 that has the most iterates by counting the number of commas in the output:
In[6]:= 

Out[6]= 

This work is licensed under a Creative Commons Attribution 4.0 International License