[go: up one dir, main page]

login
A161390
Numbers with digits in alphabetical order (in Spanish).
18
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, 48, 49, 51, 52, 53, 54, 55, 56, 57, 58, 59, 61, 63, 66, 67, 71, 73, 77, 81, 83, 86, 87, 88, 91, 93, 96, 97, 98, 99, 111, 211
OFFSET
1,3
COMMENTS
List of decimal digits, alphabetically sorted by their names in Spanish:
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
a(36233) = A247813(512) = 542986731 is the greatest term not containing any repeating digits. - Reinhard Zumkeller, Oct 05 2014
PROG
(Perl) sub isA161390 {
shift =~ m/^(0|5*4*2*9*8*6*7*3*1*)$/
}
(Haskell)
import Data.IntSet (fromList, deleteFindMin, union)
a161390 n = a161390_list !! (n-1)
a161390_list = 0 : f (fromList [1..9]) where
f s = x : f (s' `union`
fromList (map (+ 10 * x) $ dropWhile (/= mod x 10) digs))
where (x, s') = deleteFindMin s
digs = [0, 5, 4, 2, 9, 8, 6, 7, 3, 1]
-- Reinhard Zumkeller, Oct 18 2014
CROSSREFS
Cf. A247813 (subsequence).
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).
Sequence in context: A336668 A038724 A106001 * A354081 A096106 A321990
KEYWORD
nonn,word,base
AUTHOR
Claudio Meller, Jun 08 2009
STATUS
approved