cp's OEIS Frontend

A247803 Numbers in decimal representation with distinct digits, such that in Finnish their digits are in alphabetic order.

%I A247803 #4 Oct 05 2014 19:06:13
%S A247803 0,1,2,3,4,5,6,7,8,9,20,21,23,24,25,26,27,29,30,31,34,35,36,37,39,40,
%T A247803 41,45,47,49,51,59,60,61,64,65,67,69,71,75,79,80,81,82,83,84,85,86,87,
%U A247803 89,91,201,205,207,209,230,231,234,235,236,237,239,240,241
%N A247803 Numbers in decimal representation with distinct digits, such that in Finnish their digits are in alphabetic order.
%C A247803 List of decimal digits, alphabetically sorted by their names in Finnish:
%C A247803 8 _ kahdeksan, 2 _ kaksi, 3 _ kolme, 6 _ kuusi, 4 _ neljä, 0 _ nolla, 7 _ seitsemän, 5 _ viisi, 9 _ yhdeksän, 1 _ yksi;
%C A247803 finite sequence with last and largest term a(1008) = 8236407591.
%H A247803 Reinhard Zumkeller, <a href="/A247803/b247803.txt">Table of n, a(n) for n = 1..1008</a>
%H A247803 Wikipedia, <a href="http://de.wikipedia.org/wiki/Zahlen_in_unterschiedlichen_Sprachen#0_bis_10">Zahlen in unterschiedlichen Sprachen</a>
%H A247803 Wikipedia, <a href="http://en.wikipedia.org/wiki/List_of_numbers_in_various_languages">List of numbers in various languages</a>
%o A247803 (Haskell)
%o A247803 import Data.IntSet (fromList, deleteFindMin, union)
%o A247803 import qualified Data.IntSet as Set (null)
%o A247803 a247803 n = a247803_list !! (n-1)
%o A247803 a247803_list = 0 : f (fromList [1..9]) where
%o A247803    f s | Set.null s = []
%o A247803        | otherwise  = x : f (s' `union`
%o A247803          fromList (map (+ 10 * x) $ tail $ dropWhile (/= mod x 10) digs))
%o A247803        where (x, s') = deleteFindMin s
%o A247803    digs = [8, 2, 3, 6, 4, 0, 7, 5, 9, 1]
%Y A247803 Intersection of A010784 and A247753.
%Y A247803 Cf. A247800 (Czech), A247801 (Danish), A247802 (Dutch), A053433 (English), 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 A247803 nonn,base,word,fini,full
%O A247803 1,3
%A A247803 _Reinhard Zumkeller_, Oct 05 2014