cp's OEIS Frontend

A247751 Numbers in decimal representation, such that in Danish their digits are in alphabetic order.

%I A247751 #7 Oct 18 2014 07:27:51
%S A247751 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,22,23,33,40,42,43,
%T A247751 44,46,47,48,49,50,52,53,54,55,56,57,58,59,62,63,66,67,72,73,77,82,83,
%U A247751 86,87,88,90,92,93,96,97,98,99,100,102,103,106,107,108
%N A247751 Numbers in decimal representation, such that in Danish their digits are in alphabetic order.
%C A247751 List of decimal digits, alphabetically sorted by their names in Danish:
%C A247751 1 _ en/et, 5 _ fem, 4 _ fire, 9 _ ni, 0 _ nul, 8 _ otte, 6 _ seks, 7 _ syv, 2 _ to, 3 _ tre;
%C A247751 a(124929) = A247801(992) = 1549086723 is the greatest term not containing any repeating digits.
%H A247751 Reinhard Zumkeller, <a href="/A247751/b247751.txt">Table of n, a(n) for n = 1..10000</a>
%H A247751 Wikipedia, <a href="http://de.wikipedia.org/wiki/Zahlen_in_unterschiedlichen_Sprachen#0_bis_10">Zahlen in unterschiedlichen Sprachen</a>
%H A247751 Wikipedia, <a href="http://en.wikipedia.org/wiki/List_of_numbers_in_various_languages">List of numbers in various languages</a>
%o A247751 (Haskell)
%o A247751 import Data.IntSet (fromList, deleteFindMin, union)
%o A247751 a247751 n = a247751_list !! (n-1)
%o A247751 a247751_list = 0 : f (fromList [1..9]) where
%o A247751    f s = x : f (s' `union`
%o A247751          fromList (map (+ 10 * x) $ dropWhile (/= mod x 10) digs))
%o A247751      where (x, s') = deleteFindMin s
%o A247751    digs = [1, 5, 4, 9, 0, 8, 6, 7, 2, 3]
%Y A247751 Cf. A247801 (subsequence).
%Y A247751 Cf. A247750 (Czech), A247752 (Dutch), 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 A247751 nonn,base,word
%O A247751 1,3
%A A247751 _Reinhard Zumkeller_, Oct 05 2014