cp's OEIS Frontend

A247804 Numbers in decimal representation with distinct digits, such that in French their digits are in alphabetic order.

%I A247804 #4 Oct 05 2014 19:08:12
%S A247804 0,1,2,3,4,5,6,7,8,9,10,20,21,23,24,26,27,28,29,30,31,40,41,43,46,47,
%T A247804 50,51,52,53,54,56,57,58,59,60,61,63,70,71,73,76,80,81,83,84,86,87,89,
%U A247804 90,91,93,94,96,97,210,230,231,240,241,243,246,247,260,261
%N A247804 Numbers in decimal representation with distinct digits, such that in French their digits are in alphabetic order.
%C A247804 List of decimal digits, alphabetically sorted by their names in French:
%C A247804 5 _ cinq, 2 _ deux, 8 _ huit, 9 _ neuf, 4 _ quatre, 7 _ sept, 6 _ six, 3 _ trois, 1 _ un, 0 _ zéro;
%C A247804 finite sequence with last and largest term a(1023) = 5289476310.
%H A247804 Reinhard Zumkeller, <a href="/A247804/b247804.txt">Table of n, a(n) for n = 1..1023</a>
%H A247804 Wikipedia, <a href="http://de.wikipedia.org/wiki/Zahlen_in_unterschiedlichen_Sprachen#0_bis_10">Zahlen in unterschiedlichen Sprachen</a>
%H A247804 Wikipedia, <a href="http://en.wikipedia.org/wiki/List_of_numbers_in_various_languages">List of numbers in various languages</a>
%o A247804 (Haskell)
%o A247804 import Data.IntSet (fromList, deleteFindMin, union)
%o A247804 import qualified Data.IntSet as Set (null)
%o A247804 a247804 n = a247804_list !! (n-1)
%o A247804 a247804_list = 0 : f (fromList [1..9]) where
%o A247804    f s | Set.null s = []
%o A247804        | otherwise  = x : f (s' `union`
%o A247804          fromList (map (+ 10 * x) $ tail $ dropWhile (/= mod x 10) digs))
%o A247804        where (x, s') = deleteFindMin s
%o A247804    digs = [5, 2, 8, 9, 4, 7, 6, 3, 1, 0]
%Y A247804 Intersection of A010784 and A247754.
%Y A247804 Cf. A247800 (Czech), A247801 (Danish), A247802 (Dutch), A053433 (English), A247803 (Finnish), A247805 (German), A247806 (Hungarian), A247807 (Italian), A247808 (Latin), A247809 (Norwegian), A247810 (Polish), A247807 (Portuguese), A247811 (Russian), A247812 (Slovak), A247813 (Spanish), A247809 (Swedish), A247814 (Turkish).
%K A247804 nonn,base,word,fini,full
%O A247804 1,3
%A A247804 _Reinhard Zumkeller_, Oct 05 2014