cp's OEIS Frontend

A247755 Numbers in decimal representation, such that in German their digits are in alphabetic order.

%I A247755 #10 Aug 17 2020 13:28:54
%S A247755 0,1,2,3,4,5,6,7,8,9,10,11,12,14,15,16,17,19,22,30,31,32,33,34,35,36,
%T A247755 37,39,42,44,50,52,54,55,56,57,59,62,64,66,67,72,74,77,80,81,82,83,84,
%U A247755 85,86,87,88,89,90,92,94,96,97,99,100,102,104,106,107,110
%N A247755 Numbers in decimal representation, such that in German their digits are in alphabetic order.
%C A247755 List of decimal digits, alphabetically sorted by their names in German:
%C A247755 8 _ acht, 3 _ drei, 1 _ eins, 5 _ fünf, 9 _ neun, 0 _ null, 6 _ sechs, 7 _ sieben, 4 _ vier, 2 _ zwei;
%C A247755 a(142055) = A247805(1008) = 8315906742 is the greatest term not containing any repeated digits.
%H A247755 Reinhard Zumkeller, <a href="/A247755/b247755.txt">Table of n, a(n) for n = 1..10000</a>
%H A247755 Wikipedia, <a href="http://de.wikipedia.org/wiki/Zahlen_in_unterschiedlichen_Sprachen#0_bis_10">Zahlen in unterschiedlichen Sprachen</a>
%H A247755 Wikipedia, <a href="http://en.wikipedia.org/wiki/List_of_numbers_in_various_languages">List of numbers in various languages</a>
%o A247755 (Haskell)
%o A247755 import Data.IntSet (fromList, deleteFindMin, union)
%o A247755 a247755 n = a247755_list !! (n-1)
%o A247755 a247755_list = 0 : f (fromList [1..9]) where
%o A247755    f s = x : f (s' `union`
%o A247755          fromList (map (+ 10 * x) $ dropWhile (/= mod x 10) digs))
%o A247755      where (x, s') = deleteFindMin s
%o A247755    digs = [8, 3, 1, 5, 9, 0, 6, 7, 4, 2]
%Y A247755 Cf. A247805 (subsequence).
%Y A247755 Cf. A247750 (Czech), A247751 (Danish), A247752 (Dutch), A053432 (English), A247753 (Finnish), A247754 (French), A247756 (Hungarian), A247757 (Italian), A247758 (Latin), A247759 (Norwegian), A247760 (Polish), A247757 (Portuguese), A247761 (Russian), A247762 (Slovak), A161390 (Spanish), A247759 (Swedish), A247764 (Turkish).
%K A247755 nonn,base,word
%O A247755 1,3
%A A247755 _Reinhard Zumkeller_, Oct 05 2014