A247811 Numbers in decimal representation with distinct digits, such that in Russian their digits are in alphabetic order.
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
Links
- Andrey Zabolotskiy, Table of n, a(n) for n = 1..960
- Wikipedia, Zahlen in unterschiedlichen Sprachen.
- Wikipedia, List of numbers in various languages.
- Wikipedia, Russian alphabet.
Crossrefs
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).
Programs
-
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]
Extensions
Corrected by Andrey Zabolotskiy, Dec 17 2016
Comments