A305403 Number of Ukrainian letters in Ukrainian name of n.
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, 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, 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
Offset: 0
Examples
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.
Links
- E-Hern Lee, Table of n, a(n) for n = 0..10000
- MyLanguages, Ukrainian numbers
- Of Languages and Numbers, Counting in Ukranian
- Wikipedia, List of numbers in various languages - Slavic languages
- Wikipedia, Romanization of Ukrainian
- Wikipedia, Ukrainian alphabet
- Index entries for sequences related to names of numbers
Crossrefs
Programs
-
Mathematica
(* only works up to 999999 *) upto20 = {0, 4, 3, 3, 6, 4, 5, 3, 5, 6, 6, 10, 10, 10, 12, 10, 11, 10, 12, 12, 8} tens = {0, 6, 8, 8, 5, 8, 9, 8, 10, 9} hundreds = {0, 3, 6, 6, 9, 6, 7, 6, 8, 8} thousands = {0, 10, 9, 9, 12} f[x_] := If[x == 0, 4, If[x > 999 && x < 5000, thousands[[Quotient[x, 1000] + 1]] + f[Mod[x, 1000]], If[ x < 1000, 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]], 5 + f[Quotient[x, 1000]] + If[Mod[x, 1000] == 0, 0, f[Mod[x, 1000]]] ] ]] For[i = 0, i <= 10000, i++, j = 0; Print[i, " ", f[i]] ] (* E-Hern Lee, Jul 11 2018 *)
Extensions
More terms from E-Hern Lee, Jul 11 2018
Comments