This site is supported by donations to The OEIS Foundation.



(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A060857 Describe all the numbers already used (sorted into increasing order - not splitting numbers up into their digits). 12
1, 11, 31, 4113, 612314, 8112332416, 1113253342618, 131528344153628111, 1617210364354648211113, 181921239445661758110311213116, 2211121431146586276829210411112313216118 (list; graph; refs; listen; history; text; internal format)



Reinhard Zumkeller, Table of n, a(n) for n = 0..60


One; one one; three ones; four ones, one three; six ones, two threes, one four; eight ones, one two, three threes, two fours, one six; eleven ones, three twos, five threes, three fours, two sixes, one eight; thirteen [note not 15] ones, five twos, eight threes, four fours, one five, three sixes, two eights, one eleven [note than numbers >9 are preserved as wholes rather than as a collection of digits]; etc.



import Data.List (group, sort, transpose)

a060857 n = a060857_list !! n

a060857_list = 1 : f [1] :: [Integer] where

   f xs = (read $ concatMap show ys) : f (xs ++ ys) where

          ys = concat $ transpose [map length zss, map head zss]

          zss = group $ sort xs

-- Reinhard Zumkeller, Jan 25 2014


This is a combination of methods used in A005151 and A045982. The first word of each term (the number of ones used earlier) seems to be equal to A030711 and A030761.

Sequence in context: A068839 A228530 A177360 * A045982 A059134 A215727

Adjacent sequences:  A060854 A060855 A060856 * A060858 A060859 A060860




Henry Bottomley, May 03 2001



Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified February 24 12:59 EST 2018. Contains 299623 sequences. (Running on oeis4.)