login
A344013
a(1)=1; thereafter a(n) = A169639(a(n-1)).
1
1, 35, 125, 157, 206, 148, 197, 293, 333, 286, 302, 177, 246, 245, 236, 230, 178, 244, 275, 295, 342, 274, 326, 247, 253, 281, 285, 293, 333, 286, 302, 177, 246, 245, 236, 230, 178, 244, 275, 295, 342, 274, 326, 247, 253, 281, 285, 293, 333, 286, 302, 177, 246, 245, 236, 230, 178, 244, 275
OFFSET
1,2
COMMENTS
A French analog of A345126 (British English) and A345157 (US English).
Enters a cycle of length 20 starting from a(8). - Chai Wah Wu, Jun 12 2021
EXAMPLE
1 = un -> 35 = trente-cinq -> 125 -> cent vingt cinq = 157.
MATHEMATICA
a[1]=1; a[n_]:=a[n]=Total@LetterNumber@StringDelete[IntegerName[a[n-1], "French"], {" ", "-"}]; Array[a, 100] (* Giorgos Kalogeropoulos, Jun 11 2021 *)
PROG
(Python)
from num2words import num2words
from unidecode import unidecode
A344013_list = [1]
for _ in range(10):
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
CROSSREFS
KEYWORD
nonn,word
AUTHOR
EXTENSIONS
More terms from Chai Wah Wu, Jun 11 2021
STATUS
approved