cp's OEIS Frontend

A247814 Numbers in decimal representation with distinct digits, such that in Turkish their digits are in alphabetic order.

%I A247814 #4 Oct 05 2014 19:22:27
%S A247814 0,1,2,3,4,5,6,7,8,9,10,12,13,14,17,18,19,20,23,27,28,37,40,42,43,47,
%T A247814 48,50,51,52,53,54,57,58,59,60,61,62,63,64,65,67,68,69,80,83,87,90,92,
%U A247814 93,94,97,98,103,107,120,123,127,128,137,140,142,143,147
%N A247814 Numbers in decimal representation with distinct digits, such that in Turkish their digits are in alphabetic order.
%C A247814 List of decimal digits, alphabetically sorted by their names in Turkish:
%C A247814 6 _ altı, 5 _ beş, 1 _ bir, 9 _ dokuz, 4 _ dört, 2 _ iki, 8 _ sekiz, 0 _ sıfır, 3 _ üç, 7 _ yedi;
%C A247814 finite sequence with last and largest term a(1020) = 6519428037.
%H A247814 Reinhard Zumkeller, <a href="/A247814/b247814.txt">Table of n, a(n) for n = 1..1020</a>
%H A247814 Wikipedia, <a href="http://de.wikipedia.org/wiki/Zahlen_in_unterschiedlichen_Sprachen#0_bis_10">Zahlen in unterschiedlichen Sprachen</a>
%H A247814 Wikipedia, <a href="http://en.wikipedia.org/wiki/List_of_numbers_in_various_languages">List of numbers in various languages</a>
%o A247814 (Haskell)
%o A247814 import Data.IntSet (fromList, deleteFindMin, union)
%o A247814 import qualified Data.IntSet as Set (null)
%o A247814 a247814 n = a247814_list !! (n-1)
%o A247814 a247814_list = 0 : f (fromList [1..9]) where
%o A247814    f s | Set.null s = []
%o A247814        | otherwise  = x : f (s' `union`
%o A247814          fromList (map (+ 10 * x) $ tail $ dropWhile (/= mod x 10) digs))
%o A247814        where (x, s') = deleteFindMin s
%o A247814    digs = [6, 5, 1, 9, 4, 2, 8, 0, 3, 7]
%Y A247814 Intersection of A010784 and A247764.
%Y A247814 Cf. A247800 (Czech), A247801 (Danish), A247802 (Dutch), A053433 (English), A247803 (Finnish), A247804 (French), A247805 (German), A247806 (Hungarian), A247807 (Italian), A247808 (Latin), A247809 (Norwegian), A247810 (Polish), A247807 (Portuguese), A247811 (Russian), A247812 (Slovak), A247813 (Spanish), A247809 (Swedish).
%K A247814 nonn,base,word,fini,full
%O A247814 1,3
%A A247814 _Reinhard Zumkeller_, Oct 05 2014