cp's OEIS Frontend

A053433 Numbers with distinct digits in alphabetical order (in English).

%I A053433 #21 Feb 16 2025 08:32:42
%S A053433 0,1,2,3,4,5,6,7,8,9,10,12,13,16,17,20,30,32,40,41,42,43,46,47,49,50,
%T A053433 51,52,53,54,56,57,59,60,62,63,70,72,73,76,80,81,82,83,84,85,86,87,89,
%U A053433 90,91,92,93,96,97,120,130,132,160,162,163,170,172,173,176
%N A053433 Numbers with distinct digits in alphabetical order (in English).
%C A053433 Largest term is 8549176320.
%H A053433 Reinhard Zumkeller, <a href="/A053433/b053433.txt">Table of n, a(n) for n = 1..1023</a>
%H A053433 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/WordSequence.html">Word Sequence.</a>
%H A053433 Wikipedia, <a href="http://de.wikipedia.org/wiki/Zahlen_in_unterschiedlichen_Sprachen#0_bis_10">Zahlen in unterschiedlichen Sprachen</a>
%H A053433 Wikipedia, <a href="http://en.wikipedia.org/wiki/List_of_numbers_in_various_languages">List of numbers in various languages</a>
%o A053433 (Haskell)
%o A053433 import Data.IntSet (fromList, deleteFindMin, union)
%o A053433 import qualified Data.IntSet as Set (null)
%o A053433 a053433 n = a053433_list !! (n-1)
%o A053433 a053433_list = 0 : f (fromList [1..9]) where
%o A053433    f s | Set.null s = []
%o A053433        | otherwise  = x : f (s' `union`
%o A053433          fromList (map (+ 10 * x) $ tail $ dropWhile (/= mod x 10) digs))
%o A053433        where (x, s') = deleteFindMin s
%o A053433    digs = [8, 5, 4, 9, 1, 7, 6, 3, 2, 0]
%o A053433 -- _Reinhard Zumkeller_, Oct 05 2014
%o A053433 (Python)
%o A053433 from itertools import combinations
%o A053433 afull = sorted(int("".join(t)) for d in range(1, 11) for t in combinations("8549176320", d))
%o A053433 print(afull[:65]) # _Michael S. Branicky_, Aug 17 2022
%Y A053433 Subsequence of A053432.
%Y A053433 Cf. A247800 (Czech), A247801 (Danish), A247802 (Dutch), 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), A247814 (Turkish).
%K A053433 easy,fini,nonn,word,base,full
%O A053433 1,3
%A A053433 _G. L. Honaker, Jr._, Jan 10 2000