OFFSET
1,3
COMMENTS
List of decimal digits, alphabetically sorted by their names in Italian resp. Portuguese: 5 _ cinque _ cinco, 2 _ due _ dois/duas, 9 _ nove _ nove, 8 _ otto _ oito, 4 _ quattro _ quatro, 6 _ sei _ seis, 7 _ sette _ sete, 3 _ tre _ tres, 1 _ uno _ um, 0 _ zero _ zero;
finite sequence with last and largest term a(1023) = 5298467310.
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..1023
Wikipedia, Zahlen in unterschiedlichen Sprachen
Wikipedia, List of numbers in various languages
PROG
(Haskell)
import Data.IntSet (fromList, deleteFindMin, union)
import qualified Data.IntSet as Set (null)
a247807 n = a247807_list !! (n-1)
a247807_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 = [5, 2, 9, 8, 4, 6, 7, 3, 1, 0]
CROSSREFS
KEYWORD
nonn,base,word,fini,full,changed
AUTHOR
Reinhard Zumkeller, Oct 05 2014
STATUS
approved
