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,1

Links

Table of n, a(n) for n=1..29.

Madras College, Descriptive Numbers

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

Example

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

Prog

(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

Crossrefs

Cf. A005151.

Cf. A047842, A023989.

Sequence in context: A065831 A092540 A073428 * A112513 A006715 A177362

Adjacent sequences: A118625 A118626 A118627 * A118629 A118630 A118631

Keyword

nonn

Author

Parthasarathy Nambi, May 09 2006

Status

approved