login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A305403 Number of Ukrainian letters in Ukrainian name of n. 1
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 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,1

COMMENTS

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.

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

EXAMPLE

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.

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 *)

CROSSREFS

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

Sequence in context: A209252 A265131 A344894 * A344895 A020805 A200587

Adjacent sequences:  A305400 A305401 A305402 * A305404 A305405 A305406

KEYWORD

nonn,word

AUTHOR

Felix Fröhlich, May 31 2018

EXTENSIONS

More terms from E-Hern Lee, Jul 11 2018

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified September 20 09:44 EDT 2021. Contains 347583 sequences. (Running on oeis4.)