login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A247759
Numbers in decimal representation, such that in Norwegian and Swedish their digits are in alphabetic order.
17
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, 46, 47, 49, 50, 52, 53, 54, 55, 56, 57, 59, 62, 63, 66, 67, 69, 72, 73, 77, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 92, 93, 99, 100, 102, 103, 106, 107, 109
OFFSET
1,3
COMMENTS
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;
a(141973) = A247809(992) = 8154067923 is the greatest term not containing any repeating digits.
PROG
(Haskell)
import Data.IntSet (fromList, deleteFindMin, union)
a247759 n = a247759_list !! (n-1)
a247759_list = 0 : f (fromList [1..9]) where
f s = x : f (s' `union`
fromList (map (+ 10 * x) $ dropWhile (/= mod x 10) digs))
where (x, s') = deleteFindMin s
digs = [8, 1, 5, 4, 0, 6, 7, 9, 2, 3]
CROSSREFS
Cf. A247809 (subsequence).
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).
Sequence in context: A164710 A098452 A088382 * A247752 A291149 A363748
KEYWORD
nonn,base,word
AUTHOR
Reinhard Zumkeller, Oct 05 2014
STATUS
approved