cp's OEIS Frontend

A247764 Numbers in decimal representation, such that in Turkish their digits are in alphabetic order.

%I A247764 #6 Oct 18 2014 07:39:40
%S A247764 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,17,18,19,20,22,23,27,28,33,37,40,
%T A247764 42,43,44,47,48,50,51,52,53,54,55,57,58,59,60,61,62,63,64,65,66,67,68,
%U A247764 69,77,80,83,87,88,90,92,93,94,97,98,99,100,103,107,110
%N A247764 Numbers in decimal representation, such that in Turkish their digits are in alphabetic order.
%C A247764 List of decimal digits, alphabetically sorted by their names in Turkish:
%C A247764 6 _ altı, 5 _ beş, 1 _ bir, 9 _ dokuz, 4 _ dört, 2 _ iki, 8 _ sekiz, 0 _ sıfır, 3 _ üç, 7 _ yedi;
%C A247764 a(141728) = A247814(1020) = 6519428037 is the greatest term not containing any repeating digits.
%H A247764 Reinhard Zumkeller, <a href="/A247764/b247764.txt">Table of n, a(n) for n = 1..10000</a>
%H A247764 Wikipedia, <a href="http://de.wikipedia.org/wiki/Zahlen_in_unterschiedlichen_Sprachen#0_bis_10">Zahlen in unterschiedlichen Sprachen</a>
%H A247764 Wikipedia, <a href="http://en.wikipedia.org/wiki/List_of_numbers_in_various_languages">List of numbers in various languages</a>
%o A247764 (Haskell)
%o A247764 import Data.IntSet (fromList, deleteFindMin, union)
%o A247764 a247764 n = a247764_list !! (n-1)
%o A247764 a247764_list = 0 : f (fromList [1..9]) where
%o A247764    f s = x : f (s' `union`
%o A247764          fromList (map (+ 10 * x) $ dropWhile (/= mod x 10) digs))
%o A247764      where (x, s') = deleteFindMin s
%o A247764    digs = [6, 5, 1, 9, 4, 2, 8, 0, 3, 7]
%Y A247764 Cf. A247814 (subsequence).
%Y A247764 Cf. A247750 (Czech), A247751 (Danish), A247752 (Dutch), A053432 (English), A247753 (Finnish), A247754 (French), A247755 (German), A247756 (Hungarian), A247757 (Italian), A247758 (Latin), A247759 (Norwegian), A247760 (Polish), A247757 (Portuguese), A247761 (Russian), A247762 (Slovak), A161390 (Spanish), A247759 (Swedish).
%K A247764 nonn,base,word
%O A247764 1,3
%A A247764 _Reinhard Zumkeller_, Oct 05 2014