%I #40 Apr 16 2022 04:28:39
%S 1,35,125,157,206,148,197,293,333,286,302,177,246,245,236,230,178,244,
%T 275,295,342,274,326,247,253,281,285,293,333,286,302,177,246,245,236,
%U 230,178,244,275,295,342,274,326,247,253,281,285,293,333,286,302,177,246,245,236,230,178,244,275
%N a(1)=1; thereafter a(n) = A169639(a(n-1)).
%C A French analog of A345126 (British English) and A345157 (US English).
%C Enters a cycle of length 20 starting from a(8). - _Chai Wah Wu_, Jun 12 2021
%e 1 = un -> 35 = trente-cinq -> 125 -> cent vingt cinq = 157.
%t a[1]=1;a[n_]:=a[n]=Total@LetterNumber@StringDelete[IntegerName[a[n-1],"French"],{" ","-"}];Array[a,100] (* _Giorgos Kalogeropoulos_, Jun 11 2021 *)
%o (Python)
%o from num2words import num2words
%o from unidecode import unidecode
%o A344013_list = [1]
%o for _ in range(10):
%o A344013_list.append(sum(ord(s)-96 for s in unidecode(num2words(A344013_list[-1],lang='fr')) if s.isalpha())) # _Chai Wah Wu_, Jun 11 2021
%Y Cf. A073327, A169639, A345240, A345126, A345157.
%K nonn,word
%O 1,2
%A _Simon Plouffe_ and _N. J. A. Sloane_, Jun 10 2021
%E More terms from _Chai Wah Wu_, Jun 11 2021