cp's OEIS Frontend

A247756 Numbers in decimal representation, such that in Hungarian their digits are in alphabetic order.

%I A247756 #10 Oct 18 2014 07:31:53
%S A247756 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,22,24,25,28,29,
%T A247756 30,32,33,34,35,36,37,38,39,40,44,45,48,55,60,62,64,65,66,67,68,69,70,
%U A247756 72,74,75,77,78,79,85,88,90,94,95,98,99,100,105,108,110
%N A247756 Numbers in decimal representation, such that in Hungarian their digits are in alphabetic order.
%C A247756 List of decimal digits, alphabetically sorted by their names in Hungarian:
%C A247756 1 _ egy, 3 _ három, 6 _ hat, 7 _ hét, 2 _ kettő, 9 _ kilenc, 4 _ négy, 0 _ nulla, 8 _ nyolc, 5 _ öt.
%C A247756 a(127748) = A247806(1020) = 1367294085 is the greatest term not containing any repeating digits.
%H A247756 Reinhard Zumkeller, <a href="/A247756/b247756.txt">Table of n, a(n) for n = 1..10000</a>
%H A247756 Wikipedia, <a href="http://de.wikipedia.org/wiki/Zahlen_in_unterschiedlichen_Sprachen#0_bis_10">Zahlen in unterschiedlichen Sprachen</a>
%H A247756 Wikipedia, <a href="http://en.wikipedia.org/wiki/List_of_numbers_in_various_languages">List of numbers in various languages</a>
%o A247756 (Haskell)
%o A247756 import Data.IntSet (fromList, deleteFindMin, union)
%o A247756 a247756 n = a247756_list !! (n-1)
%o A247756 a247756_list = 0 : f (fromList [1..9]) where
%o A247756    f s = x : f (s' `union`
%o A247756          fromList (map (+ 10 * x) $ dropWhile (/= mod x 10) digs))
%o A247756      where (x, s') = deleteFindMin s
%o A247756    digs = [1, 3, 6, 7, 2, 9, 4, 0, 8, 5]
%Y A247756 Cf. A247806 (subsequence).
%Y A247756 Cf. A247750 (Czech), A247751 (Danish), A247752 (Dutch), A053432 (English), A247753 (Finnish), A247754 (French), A247755 (German), A247757 (Italian), A247758 (Latin), A247759 (Norwegian), A247760 (Polish), A247757 (Portuguese), A247761 (Russian), A247762 (Slovak), A161390 (Spanish), A247759 (Swedish), A247764 (Turkish).
%K A247756 nonn,base,word
%O A247756 1,3
%A A247756 _Reinhard Zumkeller_, Oct 05 2014