cp's OEIS Frontend

A247801 Numbers in decimal representation with distinct digits, such that in Danish their digits are in alphabetic order.

%I A247801 #6 Oct 05 2014 19:03:31
%S A247801 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,
%T A247801 49,50,52,53,54,56,57,58,59,62,63,67,72,73,82,83,86,87,90,92,93,96,97,
%U A247801 98,102,103,106,107,108,123,140,142,143,146,147,148,149,150
%N A247801 Numbers in decimal representation with distinct digits, such that in Danish their digits are in alphabetic order.
%C A247801 List of decimal digits, alphabetically sorted by their names in Danish:
%C A247801 1 _ en/et, 5 _ fem, 4 _ fire, 9 _ ni, 0 _ nul, 8 _ otte, 6 _ seks, 7 _ syv, 2 _ to, 3 _ tre;
%C A247801 finite sequence with last and largest term a(992) = 1549086723.
%H A247801 Reinhard Zumkeller, <a href="/A247801/b247801.txt">Table of n, a(n) for n = 1..992</a>
%H A247801 Wikipedia, <a href="http://de.wikipedia.org/wiki/Zahlen_in_unterschiedlichen_Sprachen#0_bis_10">Zahlen in unterschiedlichen Sprachen</a>
%H A247801 Wikipedia, <a href="http://en.wikipedia.org/wiki/List_of_numbers_in_various_languages">List of numbers in various languages</a>
%o A247801 (Haskell)
%o A247801 import Data.IntSet (fromList, deleteFindMin, union)
%o A247801 import qualified Data.IntSet as Set (null)
%o A247801 a247801 n = a247801_list !! (n-1)
%o A247801 a247801_list = 0 : f (fromList [1..9]) where
%o A247801    f s | Set.null s = []
%o A247801        | otherwise  = x : f (s' `union`
%o A247801          fromList (map (+ 10 * x) $ tail $ dropWhile (/= mod x 10) digs))
%o A247801        where (x, s') = deleteFindMin s
%o A247801    digs = [1, 5, 4, 9, 0, 8, 6, 7, 2, 3]
%Y A247801 Intersection of A010784 and Cf. A247751.
%Y A247801 Cf. A247800 (Czech), A247802 (Dutch), A053433 (English), A247803 (Finnish), A247804 (French), A247805 (German), A247806 (Hungarian), A247807 (Italian), A247808 (Latin), A247809 (Norwegian), A247810 (Polish), A247807 (Portuguese), A247811 (Russian), A247812 (Slovak), A247813 (Spanish), A247809 (Swedish), A247814 (Turkish).
%K A247801 nonn,base,word,fini,full
%O A247801 1,3
%A A247801 _Reinhard Zumkeller_, Oct 05 2014