cp's OEIS Frontend

A247760 Numbers in decimal representation, such that in Polish their digits are in alphabetic order.

%I A247760 #9 Oct 18 2014 07:36:20
%S A247760 0,1,2,3,4,5,6,7,8,9,10,11,13,15,16,17,18,20,21,22,23,25,26,27,28,29,
%T A247760 30,33,40,41,42,43,44,45,46,47,48,49,50,53,55,56,57,60,63,66,67,70,73,
%U A247760 77,80,83,85,86,87,88,90,91,93,95,96,97,98,99,100,110
%N A247760 Numbers in decimal representation, such that in Polish their digits are in alphabetic order.
%C A247760 List of decimal digits, alphabetically sorted by their names in Polish:
%C A247760 4 _ cztery, 2 _ dwa/dwie, 9 _ dziewięć, 1 _ jeden/jedna/jedno, 8 _ osiem, 5 _ pięć, 6 _ sześć, 7 _ siedem, 3 _ trzy, 0 _ zero;
%C A247760 a(1134871) = A247810(1023) = 4291856730 is the greatest term not containing any repeating digits.
%H A247760 Reinhard Zumkeller, <a href="/A247760/b247760.txt">Table of n, a(n) for n = 1..10000</a>
%H A247760 Wikipedia, <a href="http://de.wikipedia.org/wiki/Zahlen_in_unterschiedlichen_Sprachen#0_bis_10">Zahlen in unterschiedlichen Sprachen</a>
%H A247760 Wikipedia, <a href="http://en.wikipedia.org/wiki/List_of_numbers_in_various_languages">List of numbers in various languages</a>
%o A247760 (Haskell)
%o A247760 import Data.IntSet (fromList, deleteFindMin, union)
%o A247760 a247760 n = a247760_list !! (n-1)
%o A247760 a247760_list = 0 : f (fromList [1..9]) where
%o A247760    f s = x : f (s' `union`
%o A247760          fromList (map (+ 10 * x) $ dropWhile (/= mod x 10) digs))
%o A247760      where (x, s') = deleteFindMin s
%o A247760    digs = [4, 2, 9, 1, 8, 5, 6, 7, 3, 0]
%Y A247760 Cf. A247810 (subsequence).
%Y A247760 Cf. A247750 (Czech), A247751 (Danish), A247752 (Dutch), A053432 (English), A247753 (Finnish), A247754 (French), A247755 (German), A247756 (Hungarian), A247757 (Italian), A247758 (Latin), A247759 (Norwegian), A247757 (Portuguese), A247761 (Russian), A247762 (Slovak), A161390 (Spanish), A247759 (Swedish), A247764 (Turkish).
%K A247760 nonn,base,word
%O A247760 1,3
%A A247760 _Reinhard Zumkeller_, Oct 05 2014