%I#6 2014年10月5日19:03:31

%S 0,1,2,3,4,5,6,7,8,9,10,12,13,14,15,16,17,18,19,23,40,42,43,46,47,48，

%电话：49,50,52,53,54,56,57,58,59,62,63,67,72,73,82,83,86,87,90,92,93,96,97，

%电话：98102103106107108123140142143146147148149150

%N具有不同数字的十进制表示的数字，在丹麦语中，它们的数字是按字母顺序排列的。

%C十进制数字列表，按丹麦语名称的字母顺序排序：

%C1-en/et，5-fem，4-fire，9-ni，0-nul，8-otte，6-seks，7-syv，2-to，3-tre；

%C有限序列，最后和最大项a（992）=1549086723。

%H Reinhard Zumkeller，n表，n=1..992的a（n）</a>

%H维基百科，<a href=“http://de.wikipedia.org/wiki/Zahlen_in_unterschiedlichen_Sprachen#0_bis_10“>Zahlen在unteschiedlichen Sprachen</a>

%H维基百科，<a href=“http://en.wikipedia.org/wiki/List_of_numbers_in_various_languages网站“>各种语言的数字列表</a>

%o（哈斯克尔）

%o导入数据。IntSet（fromList，deleteFindMin，union）

%o导入合格数据。IntSet as Set（空）

%o a247801 n=a247801列表！！（n-1）

%o a247801_list=0:f（fromList[1..9]），其中

%o f s |设置完整s=[]

%o|否则=x:f（s’`联合`

%o fromList（map（+10*x）$tail$dropWhile（/=mod x 10）digs））

%o其中（x，s'）=deleteFindMin s

%o数字=[1,5,4,9,0,8,6,7,2,3]

%A010784与A247751的Y交点。

%Y参见A247800（捷克语）、A247802（荷兰语）、A053433（英语）、A247 803（芬兰语），A247804（法语）、A24.7805（德语）、A2147806（匈牙利语）、A2 47807（意大利语）、A 247808（拉丁语）、A247809（挪威语）、A147810（波兰语）和A247807、葡萄牙语、A247811（俄语）、A244812（斯洛伐克语）、A347813（西班牙语）、A246809（瑞典语）、A47814（土耳其语）。

%K nonn，base，word，fini，full

%氧1,3

%A _Reinhard Zumkeller，2014年10月5日