%I#4 2014年10月5日19:09:59
%S 0,1,2,3,4,5,6,7,8,9,10,12,14,15,16,17,19,30,31,32,34,35,36,37,39,42,
%电话:50,52,54,56,57,59,62,64,67,72,74,80,81,82,83,84,85,86,87,89,90,92,94,
%电话96,97102104106107142150152154156157159162164
%N具有不同数字的十进制表示的数字,在德语中,它们的数字是按字母顺序排列的。
%C十进制数字列表,按德语名称的字母顺序排序:
%C8 _ acht,3 _ drei,1 _ eins,5 _ fünf,9 _ neun,0 _ null,6 _ sechs,7 _ sieben,4 _ vier,2 _ zwei;
%最后一项和最大项a(1008)=8315906742的C有限序列。
%H Reinhard Zumkeller,n的表,n=1..1008的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 a247805 n=a247805_列表!!(n-1)
%o a247805_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数字=[8,3,1,5,9,0,6,7,4,2]
%A010784和A247755的Y交点。
%Y参见A247800(捷克语)、A247801(丹麦语)、A2 47802(荷兰语)、A053433(英语)、A 247803(芬兰语),A 247804(法语)、A 27806(匈牙利语)、A 297807(意大利语)、B 247808(拉丁语)、C 247809(挪威语)、S 247810(波兰语)和S 247807(葡萄牙语)、D 247811(俄语)、S 27812(斯洛伐克语)、L 247813(西班牙语)、S 47809(瑞典语)、R 247814(土耳其语)。
%K非n,基,单词,fini,完整
%氧1,3
%2014年10月5日
|