A247761 Numbers in decimal representation, such that in Russian their digits are in alphabetic order.

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

Author

Reinhard Zumkeller, Oct 05 2014

Keywords

• nonn
• base
• word

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’ [шесть].

Links

• Andrey Zabolotskiy, Table of n, a(n) for n = 1..10000
• Wikipedia, Zahlen in unterschiedlichen Sprachen.
• Wikipedia, List of numbers in various languages.
• Wikipedia, Russian alphabet.

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).

Programs

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]

Extensions

Corrected by Konstantin Knop, Dec 09 2016