cp's OEIS Frontend

A247812 Numbers in decimal representation with distinct digits, such that in Slovak their digits are in alphabetic order.

%I A247812 #4 Oct 05 2014 19:19:39
%S A247812 0,1,2,3,4,5,6,7,8,9,10,13,14,15,16,17,18,20,21,23,24,25,26,27,28,43,
%T A247812 53,54,56,57,63,64,73,74,76,83,84,85,86,87,90,91,92,93,94,95,96,97,98,
%U A247812 103,104,105,106,107,108,143,153,154,156,157,163,164,173
%N A247812 Numbers in decimal representation with distinct digits, such that in Slovak their digits are in alphabetic order.
%C A247812 List of decimal digits, alphabetically sorted by their names in Slovak:
%C A247812 9 _ deväť, 2 _ dva/dvaja/dve, 1 _ jeden/jedna/jedno, 0 _ nula, 8 _ osem, 5 _ päť, 7 _ sedem, 6 _ šesť, 4 _ štyri /štyria, 3 _ tri/traja;
%C A247812 finite sequence with last and largest term a(960) = 9210857643.
%H A247812 Reinhard Zumkeller, <a href="/A247812/b247812.txt">Table of n, a(n) for n = 1..960</a>
%H A247812 Wikipedia, <a href="http://de.wikipedia.org/wiki/Zahlen_in_unterschiedlichen_Sprachen#0_bis_10">Zahlen in unterschiedlichen Sprachen</a>
%H A247812 Wikipedia, <a href="http://en.wikipedia.org/wiki/List_of_numbers_in_various_languages">List of numbers in various languages</a>
%o A247812 (Haskell)
%o A247812 import Data.IntSet (fromList, deleteFindMin, union)
%o A247812 import qualified Data.IntSet as Set (null)
%o A247812 a247812 n = a247812_list !! (n-1)
%o A247812 a247812_list = 0 : f (fromList [1..9]) where
%o A247812    f s | Set.null s = []
%o A247812        | otherwise  = x : f (s' `union`
%o A247812          fromList (map (+ 10 * x) $ tail $ dropWhile (/= mod x 10) digs))
%o A247812        where (x, s') = deleteFindMin s
%o A247812    digs = [9, 2, 1, 0, 8, 5, 7, 6, 4, 3]
%Y A247812 Intersection of A010784 and A247762.
%Y A247812 Cf. A247800 (Czech), 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), A247813 (Spanish), A247809 (Swedish), A247814 (Turkish).
%K A247812 nonn,base,word,fini,full
%O A247812 1,3
%A A247812 _Reinhard Zumkeller_, Oct 05 2014