|
%I #27 Apr 09 2023 08:06:15
%S 64,35,54,81,82,43,52,60,58,46,37,60,71,83,123,92,64,97,95,83,72,132,
%T 126,153,154,115,124,132,130,118,82,142,136,163,164,125,134,142,140,
%U 128,97,157,151,178,179,140,149,157,155,143,104,164,158,185,186,147,156,164
%N Write n in French (cf. A167507) and sum the letters using a=1, ..., z=26.
%C Accents are ignored. - _Chai Wah Wu_, Jun 11 2021
%H Chai Wah Wu, <a href="/A169639/b169639.txt">Table of n, a(n) for n = 0..10000</a>
%e From _Omar E. Pol_, Jun 15 2021: (Start)
%e -----------------------------------------------------
%e n Name Calculation a(n)
%e -----------------------------------------------------
%e 0 Zero 26 + 5 + 18 + 15 = 64
%e 1 Un 21 + 14 = 35
%e 2 Deux 4 + 5 + 21 + 24 = 54
%e 3 Trois 20 + 18 + 15 + 9 + 19 = 81
%e 4 Quatre 17 + 21 + 1 + 20 + 18 + 5 = 82
%e 5 Cinq 3 + 9 + 14 + 17 = 43
%e 6 Six 19 + 9 + 24 = 52
%e 7 Sept 19 + 5 + 16 + 20 = 60
%e 8 Huit 8 + 21 + 9 + 20 = 58
%e 9 Neuf 14 + 5 + 21 + 6 = 46
%e 10 Dix 4 + 9 + 24 = 37
%e 11 Onze 15 + 14 + 26 + 5 = 60
%e 12 Douze 4 + 15 + 21 + 26 + 5 = 71
%e ... (End)
%o (Python)
%o from num2words import num2words
%o from unidecode import unidecode
%o def A169639(n): return sum(ord(s)-96 for s in unidecode(num2words(n,lang='fr')) if s.isalpha()) # _Chai Wah Wu_, Jun 11 2021
%o (PARI) A169639(n)=vecsum([t%32|t<-Vecsmall(French(n)),t>64]) \\ Cf. A167507 for French(). - _M. F. Hasler_, Apr 08 2023
%Y Cf. A167507, A169641 ("limit points").
%Y For other languages see A073327 (U.S. English), A119945 (German), A161406 (Spanish).
%K nonn,look,word
%O 0,1
%A _Jacques ALARDET_, Apr 04 2010
%E Edited by _N. J. A. Sloane_, Apr 05 2010
%E Offset corrected by _Mohammed Yaseen_, Jun 11 2021
|
