A118628 "Say what you see".

3, 13, 1113, 3113, 2123, 112213, 312213, 212223, 114213, 31121314, 41122314, 31221324, 21322314, 21322314, 21322314, 21322314, 21322314, 21322314, 21322314, 21322314, 21322314, 21322314, 21322314, 21322314, 21322314, 21322314, 21322314, 21322314, 21322314

Offset: 1

Author

Parthasarathy Nambi, May 09 2006

Keywords

• nonn

Examples

			3 = "one three" --> 13
13 = "one one, one three" --> 1113
1113 = "three ones, one three" --> 3113
3113 = "two ones, two threes" --> 2123
		

Links

• Madras College, Descriptive Numbers

Crossrefs

Cf. A005151.

Cf. A047842, A023989.

Programs

Haskell

import Data.List (group, sort, transpose)
a118628 n = a118628_list !! (n-1)
a118628_list = 3 : f [3] :: [Integer] where
   f xs = (read $ concatMap show ys) : f (ys) where
          ys = concat $ transpose [map length zss, map head zss]
          zss = group $ sort xs
-- Reinhard Zumkeller, Jan 26 2014

Formula

a(n) = 21322314 for n > 12; a(n) = A005151(n) for n > 6. - Reinhard Zumkeller, Jan 26 2014

a(n) = A047842(a(n-1)). - Pontus von Brömssen, Jun 04 2023