Считаем до миллиона (часть 1)

[mnashe]

שצ״ה ‎(395)
II₂₁ (396)
CC₃₂ (396)
BB₃₅ (396)

[abecadło]

B1₃₆ (397)

[Toivo]

kolmesataayhdeksänkymmentäkahdeksan (398)

[abecadło]

háromszázkilencvenkilenc (399)

[Toivo]

[huhaha] 400

[mnashe]

333₁₁ (399)
JJ₂₀ (399)

112211₃ (400)
1111₇ (400)
100₂₀ (400)
ת׳ ‎(400)

ת״א ‎(401)

[Toivo]

neljäsataakaksi (402)

[mnashe]

123₁₉ (402)
110010011₂ (403)
DD₃₀ (403)

[mnashe]

ת״ד ‎(404)
500₉ (405)

[Toivo]

123₁₉ (402)
110010011₂ (403)
DD₃₀ (403)

Скажите пожалуйста, если не секрет, как именно Вы отыскиваете такие интересные числа?

[mnashe]

EE₂₈ (406)
BB₃₆ (407)
3113₅ (408)
CC₃₃ (408)
12121₄ (409)

[mnashe]

Скажите пожалуйста, если не секрет, как именно Вы отыскиваете такие интересные числа?

Сначала вручную, потом скриптик написал:

Код Выделить Развернуть

  a:=387;
  repeat
    i:=1; p:='';
    repeat
      ++i;
      s:=str(a,0,0,i);
      if_not length(truncate_char(s,ascii(s))) then goto nice; end;
      if length(s)≥4 then
        if s=reverse(s) then goto nice; end;
      end;
      if length(s)≥3 then
        if length(truncate_char(s,%'0'))=1 then goto nice; end;
        d:=ascii(s)-(s[b:=2]);
        repeat
          c:=s[b]; ++b;
          if c-s[b]<>d then goto next; end;
        until b≥length(s);
nice:
        p+=s+'[sub]'+str(i)+'[/sub] ';
      end;
next:
    until (i=36) or (length(p)>200);
    if length(p) then
      if_not cpos(%'?',file_name) then create_window; end;
      down; ins_line; set_line(cur_window,c_line,p+'('+str(a)+')',false);
    end;
    ++a;
  until a=410;
  redraw;

[Toivo]

Oui, понятно... Это хорошо, разбираться в информационных технологиях! 

[Toivo]

neljäsataakymmenen (410)

[Karakurt]

Ещё не надоело?

[Евгений]

njeallječuođioktanuppelohkái (411)

[Toivo]

Ещё не надоело?

neljäsataakaksitoista (412)

[Евгений]

njeallječuođigolbmanuppelohkái (413)

[Toivo]

neljäsataaneljätoista (414)

[Nevik Xukxo]

20x20+15

[ali_hoseyn]

ʔarbaʕmiya wu-siṭṭaʕaš (416)

иракский диалект

[RawonaM]

1A1_F (417_A)

[Alchemist]

чотириста вісімнадцять (418)

украинский

[Toivo]

neljäsataayhdeksäntoista (419)

[ali_hoseyn]

четыреста двадцать (420)

русский