cp's OEIS Frontend

A247800 Numbers in decimal representation with distinct digits, such that in Czech their digits are in alphabetic order.

%I A247800 #6 Jan 30 2016 18:33:29
%S A247800 0,1,2,3,4,5,6,7,8,9,10,13,15,16,17,18,20,21,23,25,26,27,28,40,41,42,
%T A247800 43,45,46,47,48,49,53,56,57,63,73,76,83,85,86,87,90,91,92,93,95,96,97,
%U A247800 98,103,105,106,107,108,153,156,157,163,173,176,183,185,186
%N A247800 Numbers in decimal representation with distinct digits, such that in Czech their digits are in alphabetic order.
%C A247800 List of decimal digits, alphabetically sorted by their names in Czech:
%C A247800 4 _ čtyři, 9 _ devět, 2 _ dva/dvě, 1 _ jeden/jedna/jedno, 0 _ nula, 8 _ osm, 5 _ pět, 7 _ sedm, 6 _ šest, 3 _ tři;
%C A247800 finite sequence with last and largest term a(992) = 4921085673.
%H A247800 Reinhard Zumkeller, <a href="/A247800/b247800.txt">Table of n, a(n) for n = 1..992</a>
%H A247800 Wikipedia, <a href="http://de.wikipedia.org/wiki/Zahlen_in_unterschiedlichen_Sprachen#0_bis_10">Zahlen in unterschiedlichen Sprachen</a>
%H A247800 Wikipedia, <a href="http://en.wikipedia.org/wiki/List_of_numbers_in_various_languages">List of numbers in various languages</a>
%o A247800 (Haskell)
%o A247800 import Data.IntSet (fromList, deleteFindMin, union)
%o A247800 import qualified Data.IntSet as Set (null)
%o A247800 a247800 n = a247800_list !! (n-1)
%o A247800 a247800_list = 0 : f (fromList [1..9]) where
%o A247800    f s | Set.null s = []
%o A247800        | otherwise  = x : f (s' `union`
%o A247800          fromList (map (+ 10 * x) $ tail $ dropWhile (/= mod x 10) digs))
%o A247800        where (x, s') = deleteFindMin s
%o A247800    digs = [4, 9, 2, 1, 0, 8, 5, 7, 6, 3]
%Y A247800 Intersection of A010784 and A247750.
%Y A247800 Cf. A247801 (Danish), 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 A247800 nonn,base,word,fini,full
%O A247800 1,3
%A A247800 _Reinhard Zumkeller_, Oct 05 2014