A227865
Ending letter of a(n) equals starting letter of a(n+1), when spelled out in French; always choose the smallest possible number not yet used and not ending the sequence.
Original entry on oeis.org
0, 11001, 900, 7, 3, 61, 901, 903, 63, 65, 41, 905, 43, 67, 31, 907, 33, 68, 35, 45, 47, 37, 38, 300, 77, 301, 908, 303, 78, 305, 48, 307, 308, 317, 318, 320, 321, 917, 323, 600, 601, 918, 325, 80, 603, 605, 81, 920
Offset: 1
zérO, Onze mille uN, Neuf centS, SepT, TroiS, Soixante-et-uN, Neuf cent uN, Neuf cent troiS, Soixante-troiS, Soixante-cinQ, Quarante-et-uN, Neuf cent cinQ, Quarante-troiS, Soixante-sepT, Trente-et-uN, Neuf cent sepT, Trente-TroiS, Soixante-huiT, Trente-cinQ, Quarante-cinQ, Quarante-sepT, Trente-sepT, Trente-huiT, Trois centS, Soixante-dix-sepT, Trois cent uN, Neuf cent huiT, Trois cent troiS, Soixante-dix-huiT, Trois cent cinQ, Quarante-huiT, Trois cent sepT, Trois cent huiT, Trois cent dix-sepT, Trois cent dix-huiT, Trois cent vingT, Trois cent vingt et uN, Neuf cent dix-sepT, Trois cent vingt-troiS, Six centS, Six cent uN, Neuf cent dix-huiT, Trois cent vingt-cinQ, Quatre-vingtS, Six cent troiS, Six cent cinQ, Quatre-vingt-uN, Neuf cent vingT, ...
-
spellout(seq)={ for(i=1,#seq,my(s=Vecsmall(French(seq[i])));s[1]-=32;s[#s]-=32;print1(Strchr(s)","))} /* see A167507 for French() */
A228442
Ending letter of a(n) equals starting letter of a(n+1), when spelled out in German; always choose the smallest possible number not yet used and not ending the sequence.
Original entry on oeis.org
1, 6, 7, 9, 19, 900, 1000, 13, 901, 16, 905, 5, 15, 906, 17, 907, 908, 1001, 600, 1005, 500, 1006, 601, 605, 501, 606, 607, 909, 910, 911, 505, 506, 608, 1007, 912, 57, 913, 914, 915, 916, 917, 918, 919, 9000, 300, 1008, 1009, 9001, 609, 9005, 508, 1010, 9006, 610, 9007
Offset: 1
EinS, SechS, SiebeN, NeuN, NeunzehN, NeunhunderT, TausenD, DreizehN, NeunhunderteinS, SechzehN, NeunhundertfünF, FünF, FünfzehN, NeunhundertsechS, SiebzehN, NeunhundertsiebeN, NeunhundertachT, TausendeinS, SechshunderT, TausendfünF, FünfhunderT, TausendsechS, SechshunderteinS, SechshundertfünF, FünfhunderteinS, SechshundertsechS, SechshundertsiebeN, NeunhundertneuN, NeunhundertzehN, NeunhundertelF, FünfhundertfünF, FünfhundertsechS, SechshundertachT, TausendsiebeN, NeunhundertzwölF, FünfhundertsiebeN, NeunhundertdreizehN, NeunhundertvierzehN, NeunhundertfünfzehN, NeunhundertsechzehN, NeunhundertsiebzehN, NeunhundertachtzehN, NeunhundertneunzehN, NeuntausenD, DreihunderT, TausendachT, TausendneuN, NeuntausendeinS, SechshundertneuN, NeuntausendfünF, FünfhundertachT, TausendzehN, NeuntausendsechS, SechshundertzehN, NeuntausendsiebeN, ...
-
/* Warning: Beyond n=150, the script may yield wrong results.*/
{A228442(Nmax, letters=Vec("dfnst"), values=[[3, 13], [5, 15], [9, 19], [6, 7, 16, 17], [10]],counter=[-1, 0, 0, 0, -1])= my(ok(n)=setsearch(letters, Vec(n=German(n))[#n]),a,ini,i); vector(Nmax,k, a=if(k>1, if(counter[i=setsearch(letters, ini=Vec(a=German(a))[#a])]>0, until(ok(counter[i]++), counter[i]%100<20&&next; Vec(German(counter[i]+=80))[1] != ini && counter[i] = values[i][1]*1000; break); counter[i], if(-counter[i]-->#values[i], counter[i]=values[i][1]*100, values[i][-counter[i]] )),1))} /* see A007208 for German() and A227865 for spellout() if you wish to capitalize initial and final letters */
Showing 1-2 of 2 results.
Comments