cp's OEIS Frontend

A305403 Number of Ukrainian letters in Ukrainian name of n.

%I A305403 #27 Jul 30 2018 19:11:40
%S A305403 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 A305403 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 A305403 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 A305403 Number of Ukrainian letters in Ukrainian name of n.
%C A305403 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 A305403 E-Hern Lee, <a href="/A305403/b305403.txt">Table of n, a(n) for n = 0..10000</a>
%H A305403 MyLanguages, <a href="http://mylanguages.org/ukrainian_numbers.php">Ukrainian numbers</a>
%H A305403 Of Languages and Numbers, <a href="http://www.languagesandnumbers.com/how-to-count-in-ukrainian/en/ukr/">Counting in Ukranian</a>
%H A305403 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 A305403 Wikipedia, <a href="https://en.wikipedia.org/wiki/Romanization_of_Ukrainian">Romanization of Ukrainian</a>
%H A305403 Wikipedia, <a href="https://en.wikipedia.org/wiki/Ukrainian_alphabet">Ukrainian alphabet</a>
%H A305403 <a href="/index/Na">Index entries for sequences related to names of numbers</a>
%e A305403 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 A305403 (* only works up to 999999 *)
%t A305403 upto20 = {0, 4, 3, 3, 6, 4, 5, 3, 5, 6, 6, 10, 10, 10, 12, 10, 11, 10, 12, 12, 8}
%t A305403 tens = {0, 6, 8, 8, 5, 8, 9, 8, 10, 9}
%t A305403 hundreds = {0, 3, 6, 6, 9, 6, 7, 6, 8, 8}
%t A305403 thousands = {0, 10, 9, 9, 12}
%t A305403 f[x_] := If[x == 0, 4, If[x > 999 && x < 5000, thousands[[Quotient[x, 1000] + 1]] + f[Mod[x, 1000]],
%t A305403   If[
%t A305403     x < 1000,
%t A305403     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 A305403     5 + f[Quotient[x, 1000]] + If[Mod[x, 1000] == 0, 0, f[Mod[x, 1000]]]
%t A305403   ]
%t A305403 ]]
%t A305403 For[i = 0, i <= 10000, i++,
%t A305403   j = 0;
%t A305403   Print[i, " ", f[i]]
%t A305403 ] (* _E-Hern Lee_, Jul 11 2018 *)
%Y A305403 Cf. A005589 (English), A007005 (French), A026858 (Italian), A006994 (Russian), A011762 (Spanish).
%K A305403 nonn,word
%O A305403 0,1
%A A305403 _Felix Fröhlich_, May 31 2018
%E A305403 More terms from _E-Hern Lee_, Jul 11 2018