%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