cp's OEIS Frontend

A053432 Numbers with digits in alphabetical order (in English).

%I A053432 #21 Feb 16 2025 08:32:42
%S A053432 0,1,2,3,4,5,6,7,8,9,10,11,12,13,16,17,20,22,30,32,33,40,41,42,43,44,
%T A053432 46,47,49,50,51,52,53,54,55,56,57,59,60,62,63,66,70,72,73,76,77,80,81,
%U A053432 82,83,84,85,86,87,88,89,90,91,92,93,96,97,99,100
%N A053432 Numbers with digits in alphabetical order (in English).
%C A053432 a(142447) = A053433(1023) = 8549176320 is the greatest term not containing any repeating digits. - _Reinhard Zumkeller_, Oct 05 2014
%H A053432 Reinhard Zumkeller, <a href="/A053432/b053432.txt">Table of n, a(n) for n = 1..10000</a>
%H A053432 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/WordSequence.html">Word Sequence</a>
%H A053432 Wikipedia, <a href="http://de.wikipedia.org/wiki/Zahlen_in_unterschiedlichen_Sprachen#0_bis_10">Zahlen in unterschiedlichen Sprachen</a>
%H A053432 Wikipedia, <a href="http://en.wikipedia.org/wiki/List_of_numbers_in_various_languages">List of numbers in various languages</a>
%o A053432 (Haskell)
%o A053432 import Data.IntSet (fromList, deleteFindMin, union)
%o A053432 a053432 n = a053432_list !! (n-1)
%o A053432 a053432_list = 0 : f (fromList [1..9]) where
%o A053432    f s = x : f (s' `union`
%o A053432          fromList (map (+ 10 * x) $ dropWhile (/= mod x 10) digs))
%o A053432      where (x, s') = deleteFindMin s
%o A053432    digs = [8, 5, 4, 9, 1, 7, 6, 3, 2, 0]
%o A053432 -- _Reinhard Zumkeller_, Oct 05 2014.
%o A053432 (Python)
%o A053432 from itertools import count, islice, combinations_with_replacement as cwr
%o A053432 def agen(): # generator of terms
%o A053432     for d in count(1):
%o A053432         out = sorted(int("".join(t)) for t in cwr("8549176320", d))
%o A053432         yield from out[1-int(d==1):] # remove extra 0's
%o A053432 print(list(islice(agen(), 65))) # _Michael S. Branicky_, Aug 17 2022
%Y A053432 Cf. A247750 (Czech), A247751 (Danish), A247752 (Dutch), 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), A247764 (Turkish).
%K A053432 nonn,base,word,easy
%O A053432 1,3
%A A053432 _G. L. Honaker, Jr._, Jan 10 2000