This indicator is based on Ichimoku number theory. It marks a SwingLow/SwingHigh defined by a special fractal-pattern and fractals of different count which according to Ichimoku number theory are interesting levels where a reversal might take place.

The indicator marks additional 2 SwingHighs/SwingLows and there following fractals according number theory within the first 172 bars after the 1st SwingHigh/SwingLow.

The arrows to only highlight numbers 172 and 257 as I found them to be most significant in preceding a major market move.

I also found that using a Fractal Shoulder of 14 bars yielded the most accurate results.

For those ‘John Nash – A Beautifull Mind’ types who might naturally see patterns in numbers, please let us know if you find something interesting.

Discussion about the indicator goes here: https://www.prorealcode.com/topic/ichimoku-number-theory-indicator/

The concept and code were made with the contribution of @juanj

//Defparam calculateonlastbars = 5000

// --- settings 
//ATRNumberHeight=10
//FractalShoulderSize=14
// --- end of settings 

once SwingLow=0
once SwingLow2=0
once SwingLow3=0
once SwingHigh=0
once SwingHigh2=0
once SwingHigh3=0
once i=0
once j=0
once k=0
once lownext=1
once highnext=0

R = FractalShoulderSize //Fractal Shoulder Size

//Adjusts distance of numbers above candles relative to timeframe
atr = AverageTrueRange[ATRNumberHeight](close)[R]/pipsize

//Identify the 1st swing low
if not swinglow and lownext then
 IF low[R] < lowest[R](low) and low[R] < lowest[R](low)[R+1] Then
  SwingLow = low[R] //(R lower lows on left and R lower lows on right)
 Endif
elsif swinglow>0 then
 i=i+1
 IF i=1 or i=9 or i=17 or i=26 or i=33 or i=42 or i=65 or i=76 or i=129 or i=172 or i=257 then
  drawtext("#i#",barindex-R+1,low[R+1]-(pipsize*ATR*4)) coloured(255,0,0)
   If i=172 or i=257 Then
    DRAWARROWUP(barindex-R+1,low[R+1]-(pipsize*ATR*2)) coloured(255,0,0)
   EndIf
 endif
 if i=257 then //65 42
  SwingLow=0
  i=0
  lownext=0
  highnext=1
 endif
 IF i>1 and not SwingLow2 and low[R] < lowest[R](low) and low[R] < lowest[R](low)[R+1] Then
  SwingLow2 = low[R] //(R lower lows on left and R lower lows on right)
 Elsif SwingLow>0 and SwingLow2>0  and not Swinglow3 then
  IF low[R] < lowest[R](low) and low[R] < lowest[R](low)[R+1] Then
   SwingLow3 = low[R] //(R lower lows on left and R lower lows on right)
  Endif
 endif
endif

if Swinglow2>0 then
 j=j+1
 IF j=1 or j=9 or j=17 or j=26 or j=33 or j=42 or j=65 or j=76 or j=129 or j=172 or j=257 then
  drawtext("#j#",barindex-4,low[R]-(pipsize*ATR*4)) coloured(0,255,0)
  If j=172 or j=257 Then
   DRAWARROWUP(barindex-R,low[R]-(pipsize*ATR*2)) coloured(0,255,0)
  EndIf
 endif
 if j=257 then //65 42
  SwingLow2=0
  j=0
 endif
endif

if Swinglow3>0 then
 k=k+1
 IF k=1 or k=9 or k=17 or k=26 or k=33 or k=42 or k=65 or k=76 or k=129 or k=172 or k=257 then
  drawtext("#k#",barindex-R,low[R]-(pipsize*ATR*4)) coloured(0,0,255)
  If k=172 or k=257 Then
   DRAWARROWUP(barindex-R,low[R]-(pipsize*ATR*2)) coloured(0,0,255)
  EndIf
 endif
 if k=257 then //65 42
  SwingLow3=0
  k=0
 endif
endif

//Identify the 1st swing high

if not swinghigh and highnext then
 If high[R] > highest[R](high) and high[R] > highest[R](high)[R+1]  Then
  SwingHigh = high[R] //(R lower highs on left and R lower highs on right)
 Endif
 elsif swinghigh>0 then
  i=i+1
  IF i=1 or i=9 or i=17 or i=26 or i=33 or i=42 or i=65 or i=76 or i=129 or i=172 or i=257 then
   drawtext("#i#",barindex-R+1,high[R+1]+(pipsize*ATR*4)) coloured(255,0,0)
   If i=172 or i=257 Then
    DRAWARROWDOWN(barindex-R+1,high[R+1]+(pipsize*ATR*2)) coloured(255,0,0)
   EndIf
  endif
  if i=257 then //65 42
   Swinghigh=0
   i=0
   highnext=0
   lownext=1
  endif
  If i>1 and not SwingHigh2 and high[R] > highest[R](high) and high[R] > highest[R](high)[R+1]  Then
   SwingHigh2 = high[R] //(R lower highs on left and R lower highs on right)
  Elsif Swinghigh>0 and Swinghigh2>0 and not SwingHigh3 then
  If high[R] > highest[R](high) and high[R] > highest[R](high)[R+1]  Then
   SwingHigh3 = high[R] //(R lower highs on left and R lower highs on right)
  Endif
 endif
endif

if Swinghigh2>0 then
 j=j+1
 IF j=1 or j=9 or j=17 or j=26 or j=33 or j=42 or j=65 or j=76 or j=129 or j=172 or j=257 then
  drawtext("#j#",barindex-R,high[R]+(pipsize*ATR*4)) coloured(0,255,0)
  If j=172 or j=257 Then
   DRAWARROWDOWN(barindex-R,high[R]+(pipsize*ATR*2)) coloured(0,255,0)
  EndIf
 endif
 if j=257 then //65 42
  Swinghigh2=0
  j=0
 endif
endif

if Swinghigh3>0 then
 k=k+1
 IF k=1 or k=9 or k=17 or k=26 or k=33 or k=42 or k=65 or k=76 or k=129 or k=172 or k=257 then
  drawtext("#k#",barindex-R,high[R]+(pipsize*ATR*4)) coloured(0,0,255)
  If k=172 or k=257 Then
   DRAWARROWDOWN(barindex-R,high[R]+(pipsize*ATR*2)) coloured(0,0,255)
  EndIf
 endif
 if k=257 then //65 42
  Swinghigh3=0
  k=0
 endif
endif

return