|
%I #12 Dec 17 2016 16:22:46
%S 0,1,2,3,4,5,6,7,8,9,13,14,15,16,17,20,21,23,24,25,26,27,29,34,36,46,
%T 53,54,56,57,73,74,76,80,81,82,83,84,85,86,87,89,90,91,93,94,95,96,97,
%U 134,136,146,153,154,156,157,173,174,176,201,203,204,205,206
%N Numbers in decimal representation with distinct digits, 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’ [шесть];
%C finite sequence with last and largest term a(960) = 8290157346.
%H Andrey Zabolotskiy, <a href="/A247811/b247811.txt">Table of n, a(n) for n = 1..960</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 import qualified Data.IntSet as Set (null)
%o a247811 n = a247811_list !! (n-1)
%o a247811_list = 0 : f (fromList [1..9]) where
%o f s | Set.null s = []
%o | otherwise = x : f (s' `union`
%o fromList (map (+ 10 * x) $ tail $ dropWhile (/= mod x 10) digs))
%o where (x, s') = deleteFindMin s
%o digs = [8, 2, 9, 0, 1, 5, 7, 3, 4, 6]
%Y Intersection of A010784 and A247761.
%Y Cf. A247800 (Czech), A247801 (Danish), A247802 (Dutch), A053433 (English), A247803 (Finnish), A247804 (French), A247805 (German), A247806 (Hungarian), A247807 (Italian), A247808 (Latin), A247809 (Norwegian), A247810 (Polish), A247807 (Portuguese), A247812 (Slovak), A247813 (Spanish), A247809 (Swedish), A247814 (Turkish).
%K nonn,base,word,fini,full
%O 1,3
%A _Reinhard Zumkeller_, Oct 05 2014
%E Corrected by _Andrey Zabolotskiy_, Dec 17 2016
|
