cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A247811 Numbers in decimal representation with distinct digits, such that in Russian their digits are in alphabetic order.

This page as a plain text file.
%I A247811 #12 Dec 17 2016 16:22:46
%S A247811 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 A247811 53,54,56,57,73,74,76,80,81,82,83,84,85,86,87,89,90,91,93,94,95,96,97,
%U A247811 134,136,146,153,154,156,157,173,174,176,201,203,204,205,206
%N A247811 Numbers in decimal representation with distinct digits, such that in Russian their digits are in alphabetic order.
%C A247811 List of decimal digits and their transliterated names in Russian, sorted according to the Cyrillic alphabet:
%C A247811 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 A247811 finite sequence with last and largest term a(960) = 8290157346.
%H A247811 Andrey Zabolotskiy, <a href="/A247811/b247811.txt">Table of n, a(n) for n = 1..960</a>
%H A247811 Wikipedia, <a href="https://de.wikipedia.org/wiki/Zahlen_in_unterschiedlichen_Sprachen#0_bis_10">Zahlen in unterschiedlichen Sprachen</a>.
%H A247811 Wikipedia, <a href="https://en.wikipedia.org/wiki/List_of_numbers_in_various_languages">List of numbers in various languages</a>.
%H A247811 Wikipedia, <a href="https://en.wikipedia.org/wiki/Russian_alphabet">Russian alphabet</a>.
%o A247811 (Haskell)
%o A247811 import Data.IntSet (fromList, deleteFindMin, union)
%o A247811 import qualified Data.IntSet as Set (null)
%o A247811 a247811 n = a247811_list !! (n-1)
%o A247811 a247811_list = 0 : f (fromList [1..9]) where
%o A247811    f s | Set.null s = []
%o A247811        | otherwise  = x : f (s' `union`
%o A247811          fromList (map (+ 10 * x) $ tail $ dropWhile (/= mod x 10) digs))
%o A247811        where (x, s') = deleteFindMin s
%o A247811    digs = [8, 2, 9, 0, 1, 5, 7, 3, 4, 6]
%Y A247811 Intersection of A010784 and A247761.
%Y A247811 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 A247811 nonn,base,word,fini,full
%O A247811 1,3
%A A247811 _Reinhard Zumkeller_, Oct 05 2014
%E A247811 Corrected by _Andrey Zabolotskiy_, Dec 17 2016