123456789101112131415161718192021222324252627282930313233 |
- #!/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;
- }
- }
- }
|