[go: up one dir, main page]

login
A247811
Numbers in decimal representation with distinct digits, such that in Russian their digits are in alphabetic order.
17
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, 53, 54, 56, 57, 73, 74, 76, 80, 81, 82, 83, 84, 85, 86, 87, 89, 90, 91, 93, 94, 95, 96, 97, 134, 136, 146, 153, 154, 156, 157, 173, 174, 176, 201, 203, 204, 205, 206
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’ [шесть];
finite sequence with last and largest term a(960) = 8290157346.
PROG
(Haskell)
import Data.IntSet (fromList, deleteFindMin, union)
import qualified Data.IntSet as Set (null)
a247811 n = a247811_list !! (n-1)
a247811_list = 0 : f (fromList [1..9]) where
f s | Set.null s = []
| otherwise = x : f (s' `union`
fromList (map (+ 10 * x) $ tail $ dropWhile (/= mod x 10) digs))
where (x, s') = deleteFindMin s
digs = [8, 2, 9, 0, 1, 5, 7, 3, 4, 6]
CROSSREFS
Intersection of A010784 and A247761.
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).
Sequence in context: A032973 A174887 A092598 * A007377 A305932 A213882
KEYWORD
nonn,base,word,fini,full
AUTHOR
Reinhard Zumkeller, Oct 05 2014
EXTENSIONS
Corrected by Andrey Zabolotskiy, Dec 17 2016
STATUS
approved