cp's OEIS Frontend

A247759 Numbers in decimal representation, such that in Norwegian and Swedish their digits are in alphabetic order.

%I A247759 #8 Jan 30 2016 18:33:39
%S A247759 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,19,22,23,33,40,42,43,44,
%T A247759 46,47,49,50,52,53,54,55,56,57,59,62,63,66,67,69,72,73,77,79,80,81,82,
%U A247759 83,84,85,86,87,88,89,92,93,99,100,102,103,106,107,109
%N A247759 Numbers in decimal representation, such that in Norwegian and Swedish their digits are in alphabetic order.
%C A247759 List of decimal digits, alphabetically sorted by their names in Norwegian resp. Swedish:  8 _ åtte _ åtta, 1 _ en/ett _ en/ett, 5 _ fem _ fem, 4 _ fire _ fyra, 0 _ null _ noll, 6 _ seks _ sex, 7 _ syv/sju _ sju, 9 _ ti _ tio, 2 _ to _ två, 3 _ tre _ tre;
%C A247759 a(141973) = A247809(992) = 8154067923 is the greatest term not containing any repeating digits.
%H A247759 Reinhard Zumkeller, <a href="/A247759/b247759.txt">Table of n, a(n) for n = 1..10000</a>
%H A247759 Wikipedia, <a href="http://de.wikipedia.org/wiki/Zahlen_in_unterschiedlichen_Sprachen#0_bis_10">Zahlen in unterschiedlichen Sprachen</a>
%H A247759 Wikipedia, <a href="http://en.wikipedia.org/wiki/List_of_numbers_in_various_languages">List of numbers in various languages</a>
%o A247759 (Haskell)
%o A247759 import Data.IntSet (fromList, deleteFindMin, union)
%o A247759 a247759 n = a247759_list !! (n-1)
%o A247759 a247759_list = 0 : f (fromList [1..9]) where
%o A247759    f s = x : f (s' `union`
%o A247759          fromList (map (+ 10 * x) $ dropWhile (/= mod x 10) digs))
%o A247759      where (x, s') = deleteFindMin s
%o A247759    digs = [8, 1, 5, 4, 0, 6, 7, 9, 2, 3]
%Y A247759 Cf. A247809 (subsequence).
%Y A247759 Cf. A247750 (Czech), A247751 (Danish), A247752 (Dutch), A053432 (English), A247753 (Finnish), A247754 (French), A247755 (German), A247756 (Hungarian), A247757 (Italian), A247758 (Latin), A247760 (Polish), A247757 (Portuguese), A247761 (Russian), A247762 (Slovak), A161390 (Spanish), A247764 (Turkish).
%K A247759 nonn,base,word
%O A247759 1,3
%A A247759 _Reinhard Zumkeller_, Oct 05 2014