cp's OEIS Frontend

A247806 Numbers in decimal representation with distinct digits, such that in Hungarian their digits are in alphabetic order.

%I A247806 #4 Oct 05 2014 19:11:22
%S A247806 0,1,2,3,4,5,6,7,8,9,10,12,13,14,15,16,17,18,19,20,24,25,28,29,30,32,
%T A247806 34,35,36,37,38,39,40,45,48,60,62,64,65,67,68,69,70,72,74,75,78,79,85,
%U A247806 90,94,95,98,105,108,120,124,125,128,129,130,132,134,135
%N A247806 Numbers in decimal representation with distinct digits, such that in Hungarian their digits are in alphabetic order.
%C A247806 List of decimal digits, alphabetically sorted by their names in Hungarian:
%C A247806 1 _ egy, 3 _ három, 6 _ hat, 7 _ hét, 2 _ kettő, 9 _ kilenc, 4 _ négy, 0 _ nulla, 8 _ nyolc, 5 _ öt;
%C A247806 finite sequence with last and largest term a(1020) = 1367294085.
%H A247806 Reinhard Zumkeller, <a href="/A247806/b247806.txt">Table of n, a(n) for n = 1..1020</a>
%H A247806 Wikipedia, <a href="http://de.wikipedia.org/wiki/Zahlen_in_unterschiedlichen_Sprachen#0_bis_10">Zahlen in unterschiedlichen Sprachen</a>
%H A247806 Wikipedia, <a href="http://en.wikipedia.org/wiki/List_of_numbers_in_various_languages">List of numbers in various languages</a>
%o A247806 (Haskell)
%o A247806 import Data.IntSet (fromList, deleteFindMin, union)
%o A247806 import qualified Data.IntSet as Set (null)
%o A247806 a247806 n = a247806_list !! (n-1)
%o A247806 a247806_list = 0 : f (fromList [1..9]) where
%o A247806    f s | Set.null s = []
%o A247806        | otherwise  = x : f (s' `union`
%o A247806          fromList (map (+ 10 * x) $ tail $ dropWhile (/= mod x 10) digs))
%o A247806        where (x, s') = deleteFindMin s
%o A247806    digs = [1, 3, 6, 7, 2, 9, 4, 0, 8, 5]
%Y A247806 Intersection of A010784 and A247756.
%Y A247806 Cf. A247800 (Czech), A247801 (Danish), A247802 (Dutch), A053433 (English), A247803 (Finnish), A247804 (French), A247805 (German), A247807 (Italian), A247808 (Latin), A247809 (Norwegian), A247810 (Polish), A247807 (Portuguese), A247811 (Russian), A247812 (Slovak), A247813 (Spanish), A247809 (Swedish), A247814 (Turkish).
%K A247806 nonn,base,word,fini,full
%O A247806 1,3
%A A247806 _Reinhard Zumkeller_, Oct 05 2014