|
| |
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
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
|
|
|
LINKS
|
Table of n, a(n) for n=1..59.
|
|
|
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
|
Cf. A073327, A169639, A345240, A345126, A345157.
Sequence in context: A216268 A098218 A247679 * A225930 A209370 A219717
Adjacent sequences: A344010 A344011 A344012 * A344014 A344015 A344016
|
|
|
KEYWORD
|
nonn,word
|
|
|
AUTHOR
|
Simon Plouffe and N. J. A. Sloane, Jun 10 2021
|
|
|
EXTENSIONS
|
More terms from Chai Wah Wu, Jun 11 2021
|
|
|
STATUS
|
approved
|
| |
|
|
