cp's OEIS Frontend

A247802 Numbers in decimal representation with distinct digits, such that in Dutch their digits are in alphabetic order.

%I A247802 #4 Oct 05 2014 19:04:51
%S A247802 0,1,2,3,4,5,6,7,8,9,10,12,13,14,15,16,17,19,24,25,26,27,30,32,34,35,
%T A247802 36,37,39,45,46,47,56,57,67,80,81,82,83,84,85,86,87,89,90,92,94,95,96,
%U A247802 97,102,104,105,106,107,124,125,126,127,130,132,134,135,136
%N A247802 Numbers in decimal representation with distinct digits, such that in Dutch their digits are in alphabetic order.
%C A247802 List of decimal digits, alphabetically sorted by their names in Dutch:
%C A247802 8 _ acht, 1 _ een, 3 _ drie, 9 _ negen, 0 _ nul, 2 _ twee, 4 _ vier, 5 _ vijf, 6 _ zes, 7 _ zeven;
%C A247802 finite sequence with last and largest term a(992) = 8139024567.
%H A247802 Reinhard Zumkeller, <a href="/A247802/b247802.txt">Table of n, a(n) for n = 1..992</a>
%H A247802 Wikipedia, <a href="http://de.wikipedia.org/wiki/Zahlen_in_unterschiedlichen_Sprachen#0_bis_10">Zahlen in unterschiedlichen Sprachen</a>
%H A247802 Wikipedia, <a href="http://en.wikipedia.org/wiki/List_of_numbers_in_various_languages">List of numbers in various languages</a>
%o A247802 (Haskell)
%o A247802 import Data.IntSet (fromList, deleteFindMin, union)
%o A247802 import qualified Data.IntSet as Set (null)
%o A247802 a247802 n = a247802_list !! (n-1)
%o A247802 a247802_list = 0 : f (fromList [1..9]) where
%o A247802    f s | Set.null s = []
%o A247802        | otherwise  = x : f (s' `union`
%o A247802          fromList (map (+ 10 * x) $ tail $ dropWhile (/= mod x 10) digs))
%o A247802        where (x, s') = deleteFindMin s
%o A247802    digs = [8, 1, 3, 9, 0, 2, 4, 5, 6, 7]
%Y A247802 Intersection of A010784 and A247752.
%Y A247802 Cf. A247800 (Czech), A247801 (Danish), 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 A247802 nonn,base,word,fini,full
%O A247802 1,3
%A A247802 _Reinhard Zumkeller_, Oct 05 2014