experimental-projects/oeis-research/Sezai Ata/Turkish numbers/turkish_numbers_len_corrected.pl

#!/usr/bin/perl

use utf8;
use 5.014;
use strict;
use warnings;

# https://oeis.org/A305100

# 3, 1, 4, 0, 14, 18, 21, 24, 28, 68, 124, 128, 168, 224, 228, 268, 468, 868,
# 1168, 1224, 1228, 1268, 1468, 1868, 4868, 8868, 14868, 18868, 21868, 24868,
# 28868, 68868, 124868, 128868, 168868, 224868, 228868, 268868, 468868, 868868

use open IO => ':utf8';
use Encode qw(decode_utf8 encode_utf8);

use Lingua::TR::Numbers qw(num2tr num2tr_ordinal);

foreach my $n (2 .. 100) {
    foreach my $k (0 .. 1e11) {
        my $str = num2tr($k);

        if (length($k) == 4 and $k =~ /^1/) {
            $str =~ s/^bir //;
        }

        if (length($str =~ tr/ ,-//dr) == $n) {
            say "a($n) = $k -> ", encode_utf8($str); #encode_utf8(num2tr($k));
            last;
        }
    }
}