login
A247761
Numbers in decimal representation, such that in Russian their digits are in alphabetic order.
17
0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 13, 14, 15, 16, 17, 20, 21, 22, 23, 24, 25, 26, 27, 29, 33, 34, 36, 44, 46, 53, 54, 55, 56, 57, 66, 73, 74, 76, 77, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 93, 94, 95, 96, 97, 99, 111, 113, 114, 115, 116, 117, 133, 134
OFFSET
1,3
COMMENTS
List of decimal digits and their transliterated names in Russian, sorted according to the Cyrillic alphabet:
8 _ vosem' [восемь], 2 _ dva/dve [два/две], 9 _ devjat' [девять], 0 _ nol'/nul' [ноль/нуль], 1 _ odin/odna/odno [один/одна/одно], 5 _ pjat' [пять], 7 _ sem' [семь], 3 _ tri [три], 4 _ četyre [четыре]; 6 _ šest’ [шесть].
PROG
(Haskell)
import Data.IntSet (fromList, deleteFindMin, union)
a247761 n = a247761_list !! (n-1)
a247761_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 = [8, 2, 9, 0, 1, 5, 7, 3, 4, 6]
CROSSREFS
Cf. A247811 (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), A247762 (Slovak), A161390 (Spanish), A247759 (Swedish), A247764 (Turkish).
Sequence in context: A039219 A038365 A359075 * A031185 A342441 A129562
KEYWORD
nonn,base,word
AUTHOR
Reinhard Zumkeller, Oct 05 2014
EXTENSIONS
Corrected by Konstantin Knop, Dec 09 2016
STATUS
approved