cp's OEIS Frontend

A161390 Numbers with digits in alphabetical order (in Spanish).

%I A161390 #13 Oct 19 2014 12:42:54
%S A161390 0,1,2,3,4,5,6,7,8,9,11,21,22,23,26,27,28,29,31,33,41,42,43,44,46,47,
%T A161390 48,49,51,52,53,54,55,56,57,58,59,61,63,66,67,71,73,77,81,83,86,87,88,
%U A161390 91,93,96,97,98,99,111,211
%N A161390 Numbers with digits in alphabetical order (in Spanish).
%C A161390 List of decimal digits, alphabetically sorted by their names in Spanish:
%C A161390 0 _ cero, 5 _ cinco, 4 _ cuatro, 2 _ dos, 9 _ nueve, 8 _ ocho, 6 _ seis, 7 _ siete, 3 _ tres, 1 _ uno/una. - _Reinhard Zumkeller_, Oct 05 2014
%C A161390 a(36233) = A247813(512) = 542986731 is the greatest term not containing any repeating digits. - _Reinhard Zumkeller_, Oct 05 2014
%H A161390 Reinhard Zumkeller, <a href="/A161390/b161390.txt">Table of n, a(n) for n = 1..10000</a>
%H A161390 Wikipedia, <a href="http://de.wikipedia.org/wiki/Zahlen_in_unterschiedlichen_Sprachen#0_bis_10">Zahlen in unterschiedlichen Sprachen</a>
%H A161390 Wikipedia, <a href="http://en.wikipedia.org/wiki/List_of_numbers_in_various_languages">List of numbers in various languages</a>
%o A161390 (Perl) sub isA161390 {
%o A161390   shift =~ m/^(0|5*4*2*9*8*6*7*3*1*)$/
%o A161390 }
%o A161390 (Haskell)
%o A161390 import Data.IntSet (fromList, deleteFindMin, union)
%o A161390 a161390 n = a161390_list !! (n-1)
%o A161390 a161390_list = 0 : f (fromList [1..9]) where
%o A161390    f s = x : f (s' `union`
%o A161390          fromList (map (+ 10 * x) $ dropWhile (/= mod x 10) digs))
%o A161390      where (x, s') = deleteFindMin s
%o A161390    digs = [0, 5, 4, 2, 9, 8, 6, 7, 3, 1]
%o A161390 -- _Reinhard Zumkeller_, Oct 18 2014
%Y A161390 Cf. A247813 (subsequence).
%Y A161390 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), A247759 (Swedish), A247764 (Turkish).
%K A161390 nonn,word,base
%O A161390 1,3
%A A161390 _Claudio Meller_, Jun 08 2009