cp's OEIS Frontend

A247752 Numbers in decimal representation, such that in Dutch their digits are in alphabetic order.

%I A247752 #6 Oct 18 2014 07:28:57
%S A247752 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,19,22,24,25,26,27,30,32,
%T A247752 33,34,35,36,37,39,44,45,46,47,55,56,57,66,67,77,80,81,82,83,84,85,86,
%U A247752 87,88,89,90,92,94,95,96,97,99,100,102,104,105,106,107
%N A247752 Numbers in decimal representation, such that in Dutch their digits are in alphabetic order.
%C A247752 List of decimal digits, alphabetically sorted by their names in Dutch:
%C A247752 8 _ acht, 1 _ een, 3 _ drie, 9 _ negen, 0 _ nul, 2 _ twee, 4 _ vier, 5 _ vijf, 6 _ zes, 7 _ zeven;
%C A247752 a(137654) = A247802(992) = 8139024567 is the greatest term not containing any repeating digits.
%H A247752 Reinhard Zumkeller, <a href="/A247752/b247752.txt">Table of n, a(n) for n = 1..10000</a>
%H A247752 Wikipedia, <a href="http://de.wikipedia.org/wiki/Zahlen_in_unterschiedlichen_Sprachen#0_bis_10">Zahlen in unterschiedlichen Sprachen</a>
%H A247752 Wikipedia, <a href="http://en.wikipedia.org/wiki/List_of_numbers_in_various_languages">List of numbers in various languages</a>
%o A247752 (Haskell)
%o A247752 import Data.IntSet (fromList, deleteFindMin, union)
%o A247752 a247752 n = a247752_list !! (n-1)
%o A247752 a247752_list = 0 : f (fromList [1..9]) where
%o A247752    f s = x : f (s' `union`
%o A247752          fromList (map (+ 10 * x) $ dropWhile (/= mod x 10) digs))
%o A247752      where (x, s') = deleteFindMin s
%o A247752    digs = [8, 1, 3, 9, 0, 2, 4, 5, 6, 7]
%Y A247752 Cf. A247802 (subsequence).
%Y A247752 Cf. A247750 (Czech), A247751 (Danish), A053432 (English), A247753 (Finnish), A247754 (French), A247755 (German), A247756 (Hungarian), A247757 (Italian), A247758 (Latin), A247759 (Norwegian), A247760 (Polish), A247757 (Portuguese), A247761 (Russian), A247762 (Slovak), A161390 (Spanish), A247759 (Swedish), A247764 (Turkish).
%K A247752 nonn,base,word
%O A247752 1,3
%A A247752 _Reinhard Zumkeller_, Oct 05 2014