A026858 -id:A026858 - cp's OEIS frontend

A167507 Number of letters in the French spelling of the number n, not counting hyphens and spaces.

4, 2, 4, 5, 6, 4, 3, 4, 4, 4, 3, 4, 5, 6, 8, 6, 5, 7, 7, 7, 5, 9, 9, 10, 11, 9, 8, 9, 9, 9, 6, 10, 10, 11, 12, 10, 9, 9, 10, 10, 8, 12, 12, 13, 14, 12, 11, 12, 12, 12, 9, 13, 13, 14, 15, 13, 12, 13, 13, 13, 8, 12, 12, 13, 14, 12, 11, 12, 12, 12, 11, 12, 13, 14, 16, 14, 13, 15, 15, 15, 12, 13

Offset: 0

M. F. Hasler, Nov 18 2009

Sequence A007005 is a variant of this sequence, where spaces and hyphens are counted.

In most languages, there exists a number N after which all numbers are written with fewer letters than the number itself. In English, in German and in French, N = 4. Here, if n > 4, then a(n) < n, and if n <= 4, then a(n) > n. - Bernard Schott, Jan 11 2019

			The terms a(0),...,a(16) represent the number of characters in the strings "zéro", "un", "deux", "trois", "quatre", "cinq", "six", "sept", "huit", "neuf", "dix", "onze", "douze", "treize", "quatorze", "quinze", "seize".
Since spaces and punctuation are not counted, a(n) is less than the length of the character string whenever the spelling of n contains hyphens, as in "dix-sept" (a(17)=7), or spaces as in "vingt et un" (a(21)=9).

Wiktionnaire, Annexe:Nombres de 1 à 100 en français (as of Nov. 18, 2009).
Index entries for sequences related to names of numbers

Cf. A005589 (English analog), A167508 (counts distinct letters).

Cf. A001050 (Finnish analog), A006994 (Russian analog), A007208 (German analog), A011762 (Spanish analog), A026858 (Italian analog).

apply( {A167507(n)=#[0|c<-Vecsmall(French(n)), c>96]}, [0..81]) \\ updated by M. F. Hasler, Feb 19 2020 [If old versions of PARI/gp give an error, use e.g. Vec(Vecsmall...).]
/* Helper function: spell out n in French. Extended to 10^24 (now further extensible via the 2nd optional argument) for A204593 on Feb 16 2012. */
French(n, t=[10^18,"trillion", /*10^15,"billiard",*/ 10^12,"billion", 10^9,"milliard", 10^6,"million"])={ if( n>999, n>=10^6*t[1] & error(n" is too large - this implementation is restricted to n < 10^",5+#Str(t[1])); forstep(i=1,#t,2, n\t[i] & return(Str(French(n\t[i])" "t[i+1], if(n\t[i]>1,"s",""), if(n%t[i],Str(" "French(n%t[i])),"")))); return(Str(if(n\1000>1,Str(French(n\1000)," "),""),"mille",if(n%1000,Str(" ", French(n%1000)),""))));
n<20 & return([ "zero","un","deux","trois","quatre","cinq","six","sept","huit","neuf", "dix","onze", "douze","treize","quatorze","quinze","seize","dix-sept","dix-huit","dix-neuf"][n+1]);
n >= 100 & return( Str( if( n>199, Str(French(n\100)," "), ""), "cent", if(n%100,Str(" ",French(n%100)),if(n>199,"s","")/*deux cents*/)));
n > 80 & return( Str( "quatre-vingt-", French( n-80 )));
n%10==0 & return( Str( ["vingt","trente","quarante","cinquante","soixante", "soixante-dix","quatre-vingts"][n\10-1] ));
Str( French((n\10-(n>70))*10), if(n%10==1," et ","-"), French(n%10+10*(n>70)))}
\\ M. F. Hasler, Nov 19 2009

Keyword "fini" removed by M. F. Hasler, Nov 19 2009

a(80) and a(81) corrected by Bernard Schott, Feb 19 2020

A178467 a(n) = n * (number of letters in n in Italian).

Original entry on oeis.org

0, 3, 6, 9, 28, 30, 18, 35, 32, 36, 50, 66, 72, 91, 154, 120, 96, 187, 144, 190, 100, 147, 176, 184, 288, 275, 208, 270, 224, 261, 180, 248, 288, 297, 442, 420, 324, 407, 342, 390, 320, 410, 462, 473, 660, 630, 506, 611, 528, 588, 450, 561, 624, 636, 864, 825, 672, 798, 696, 767, 480, 610, 682, 693, 960, 910, 726, 871, 748, 828, 560, 710, 792, 803, 1110, 1050, 836, 1001, 858, 948, 560, 729, 820, 830, 1176, 1105, 860, 1044

Offset: 0

Carmine Suriano, Dec 23 2010

a(0) and a(3) are the only terms such that a(k) = k^2.

			a(5)=30 since 5="cinque" has 6 letters in Italian and 5*6=30.
a(81)=729 since 81="ottantuno" has 9 letters.

Cf. A001477, A026858.

a(n) = A001477(n)*A026858(n).

Edited by N. J. A. Sloane, Dec 23 2010

a(81) corrected by Georg Fischer, Apr 11 2024

A305403 Number of Ukrainian letters in Ukrainian name of n.

Original entry on oeis.org

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

Felix Fröhlich, May 31 2018

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.

			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.

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

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

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

More terms from E-Hern Lee, Jul 11 2018

A372204 a(n) is the number of letters in the Italian name of the n-th ordinal number.

Original entry on oeis.org

5, 7, 5, 6, 6, 5, 7, 6, 4, 6, 10, 10, 11, 15, 12, 10, 15, 12, 14, 9, 11, 12, 13, 16, 15, 13, 14, 12, 13, 10, 12, 13, 14, 17, 16, 14, 15, 13, 14, 12, 14, 15, 16, 19, 18, 16, 17, 15, 16, 13, 15, 16, 17, 20, 19, 17, 18, 16, 17, 12, 14, 15, 16, 19, 18, 16, 17, 15, 16, 12

Offset: 1

Stefano Spezia, Apr 27 2024

			Primo, secondo, terzo, quarto, quinto, sesto, settimo, ottavo, nono, ...

Wikipedia, Numero ordinale (in Italian).

Cf. A006944, A026858.

from num2words import num2words
def A372204(n): return len(num2words(n,ordinal=True,lang='it')) # Chai Wah Wu, Apr 28 2024

a(17), a(19) corrected by Chai Wah Wu, Apr 28 2024

cp's OEIS Frontend

A167507 Number of letters in the French spelling of the number n, not counting hyphens and spaces.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

PARI

Extensions

A178467 a(n) = n * (number of letters in n in Italian).

Views

Author

Keywords

Comments

Examples

Crossrefs

Formula

Extensions

A305403 Number of Ukrainian letters in Ukrainian name of n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Extensions

A372204 a(n) is the number of letters in the Italian name of the n-th ordinal number.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Python

Extensions