cp's OEIS Frontend

A247807 Numbers in decimal representation with distinct digits, such that in Italian and Portuguese their digits are in alphabetic order.

%I A247807 #4 Oct 05 2014 19:12:31
%S A247807 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 A247807 50,51,52,53,54,56,57,58,59,60,61,63,67,70,71,73,80,81,83,84,86,87,90,
%U A247807 91,93,94,96,97,98,210,230,231,240,241,243,246,247,260,261
%N A247807 Numbers in decimal representation with distinct digits, such that in Italian and Portuguese their digits are in alphabetic order.
%C A247807  List of decimal digits, alphabetically sorted by their names in Italian resp. Portuguese:  5 _ cinque _ cinco, 2 _ due _ dois/duas, 9 _ nove _ nove, 8 _ otto _ oito, 4 _ quattro _ quatro, 6 _ sei _ seis, 7 _ sette _ sete, 3 _ tre _ tres, 1 _ uno _ um, 0 _ zero _ zero;
%C A247807 finite sequence with last and largest term a(1023) = 5298467310.
%H A247807 Reinhard Zumkeller, <a href="/A247807/b247807.txt">Table of n, a(n) for n = 1..1023</a>
%H A247807 Wikipedia, <a href="http://de.wikipedia.org/wiki/Zahlen_in_unterschiedlichen_Sprachen#0_bis_10">Zahlen in unterschiedlichen Sprachen</a>
%H A247807 Wikipedia, <a href="http://en.wikipedia.org/wiki/List_of_numbers_in_various_languages">List of numbers in various languages</a>
%o A247807 (Haskell)
%o A247807 import Data.IntSet (fromList, deleteFindMin, union)
%o A247807 import qualified Data.IntSet as Set (null)
%o A247807 a247807 n = a247807_list !! (n-1)
%o A247807 a247807_list = 0 : f (fromList [1..9]) where
%o A247807    f s | Set.null s = []
%o A247807        | otherwise  = x : f (s' `union`
%o A247807          fromList (map (+ 10 * x) $ tail $ dropWhile (/= mod x 10) digs))
%o A247807        where (x, s') = deleteFindMin s
%o A247807    digs = [5, 2, 9, 8, 4, 6, 7, 3, 1, 0]
%Y A247807 Intersection of A010784 and A247757.
%Y A247807 Cf. A247800 (Czech), A247801 (Danish), A247802 (Dutch), A053433 (English), A247803 (Finnish), A247804 (French), A247805 (German), A247806 (Hungarian), A247808 (Latin), A247809 (Norwegian), A247810 (Polish), A247811 (Russian), A247812 (Slovak), A247813 (Spanish), A247809 (Swedish), A247814 (Turkish).
%K A247807 nonn,base,word,fini,full
%O A247807 1,3
%A A247807 _Reinhard Zumkeller_, Oct 05 2014