A305403 - OEIS

%I #27 Jul 30 2018 19:11:40

%S 4,4,3,3,6,4,5,3,5,6,6,10,10,10,12,10,11,10,12,12,8,12,11,11,14,12,13,

%T 11,13,14,8,12,11,11,14,12,13,11,13,14,5,9,8,8,11,9,10,8,10,11,8,12,

%U 11,11,14,12,13,11,13,14,9,13,12,12,15,13,14,12,14,15,8,12,11,11,14,12,13,11,13,14,10,14,13

%N Number of Ukrainian letters in Ukrainian name of n.

%C Apostrophes, when the name is written with Ukrainian letters, are not counted as letters. If they were, then, for example, a(5) would be 5, but here, a(5) = 4, because the apostrophe is ignored.

%H E-Hern Lee, <a href="/A305403/b305403.txt">Table of n, a(n) for n = 0..10000</a>

%H MyLanguages, <a href="http://mylanguages.org/ukrainian_numbers.php">Ukrainian numbers</a>

%H Of Languages and Numbers, <a href="http://www.languagesandnumbers.com/how-to-count-in-ukrainian/en/ukr/">Counting in Ukranian</a>

%H Wikipedia, <a href="https://en.wikipedia.org/wiki/List_of_numbers_in_various_languages#Slavic_languages">List of numbers in various languages - Slavic languages</a>

%H Wikipedia, <a href="https://en.wikipedia.org/wiki/Romanization_of_Ukrainian">Romanization of Ukrainian</a>

%H Wikipedia, <a href="https://en.wikipedia.org/wiki/Ukrainian_alphabet">Ukrainian alphabet</a>

%H <a href="/index/Na">Index entries for sequences related to names of numbers</a>

%e Using the BGN/PCGN romanization system, the names of numbers are nul', odyn, dva, try, chotyry, .... Note that the number of letters in the romanized name of n does not necessarily coincide with the number of letters when the name of n is written in Ukrainian script.

%t (* only works up to 999999 *)

%t upto20 = {0, 4, 3, 3, 6, 4, 5, 3, 5, 6, 6, 10, 10, 10, 12, 10, 11, 10, 12, 12, 8}

%t tens = {0, 6, 8, 8, 5, 8, 9, 8, 10, 9}

%t hundreds = {0, 3, 6, 6, 9, 6, 7, 6, 8, 8}

%t thousands = {0, 10, 9, 9, 12}

%t f[x_] := If[x == 0, 4, If[x > 999 && x < 5000, thousands[[Quotient[x, 1000] + 1]] + f[Mod[x, 1000]],

%t   If[

%t     x < 1000,

%t     If[Mod[x, 100] <= 20, upto20[[Mod[x, 100] + 1]], upto20[[Mod[x, 10] + 1]] + tens[[Mod[Quotient[x, 10], 10] + 1]]] + hundreds[[Mod[Quotient[x, 100], 10] + 1]] + thousands[[Mod[Quotient[x, 1000], 10] + 1]],

%t     5 + f[Quotient[x, 1000]] + If[Mod[x, 1000] == 0, 0, f[Mod[x, 1000]]]

%t   ]

%t ]]

%t For[i = 0, i <= 10000, i++,

%t   j = 0;

%t   Print[i, " ", f[i]]

%t ] (* _E-Hern Lee_, Jul 11 2018 *)

%Y Cf. A005589 (English), A007005 (French), A026858 (Italian), A006994 (Russian), A011762 (Spanish).

%K nonn,word

%O 0,1

%A _Felix Fröhlich_, May 31 2018

%E More terms from _E-Hern Lee_, Jul 11 2018