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

%I #16 Dec 24 2016 11:34:14

%S 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,

%T 34,36,44,46,53,54,55,56,57,66,73,74,76,77,80,81,82,83,84,85,86,87,88,

%U 89,90,91,93,94,95,96,97,99,111,113,114,115,116,117,133,134

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

%C List of decimal digits and their transliterated names in Russian, sorted according to the Cyrillic alphabet:

%C 8 _ vosem' [восемь], 2 _ dva/dve [два/две], 9 _ devjat' [девять], 0 _ nol'/nul' [ноль/нуль], 1 _ odin/odna/odno [один/одна/одно], 5 _ pjat' [пять], 7 _ sem' [семь], 3 _ tri [три], 4 _ četyre [четыре]; 6 _ šest’ [шесть].

%H Andrey Zabolotskiy, <a href="/A247761/b247761.txt">Table of n, a(n) for n = 1..10000</a>

%H Wikipedia, <a href="https://de.wikipedia.org/wiki/Zahlen_in_unterschiedlichen_Sprachen#0_bis_10">Zahlen in unterschiedlichen Sprachen</a>.

%H Wikipedia, <a href="https://en.wikipedia.org/wiki/List_of_numbers_in_various_languages">List of numbers in various languages</a>.

%H Wikipedia, <a href="https://en.wikipedia.org/wiki/Russian_alphabet">Russian alphabet</a>.

%o (Haskell)

%o import Data.IntSet (fromList, deleteFindMin, union)

%o a247761 n = a247761_list !! (n-1)

%o a247761_list = 0 : f (fromList [1..9]) where

%o f s = x : f (s' `union`

%o fromList (map (+ 10 * x) $ dropWhile (/= mod x 10) digs))

%o where (x, s') = deleteFindMin s

%o digs = [8, 2, 9, 0, 1, 5, 7, 3, 4, 6]

%Y Cf. A247811 (subsequence).

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

%K nonn,base,word

%O 1,3

%A _Reinhard Zumkeller_, Oct 05 2014

%E Corrected by _Konstantin Knop_, Dec 09 2016